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INTRODUCTION 

This report provides technical documentation for the files used in creating the Healthy Eating 
Index. It is intended as a comprehensive guide for programmers who are replicating or building upon 
our analysis. Our companion document. The Healthy Eating Index," (Kennedy et al., 1994) explains 
the conceptual basis of the index 

The following text gives a general descriptive overview of the files, programs, and general file 
creation process. Appendix A provides detailed technical information for each input file and 
program. Appendix B shows the contents of the SAS Healthy Eating Index (HEI) analysis file, 
CSFINDEX.SSD. This output includes the name, length, and description of each variable. In 
Appendix C, we provide the complete FORTRAN code for CSF_IDX.FOR, which creates the 
Healthy Eating Index. To illustrate how to use the SAS HEI file, we provide three sample SAS 
programs, and their output, in Appendix D. 

A. DESCRIPTION OF THE FILE 

The main source of dietary intake data used was the Continuing Survey of Food Intake by 
Individuals (CFII) which is conducted periodically, by the U.S. Department of Agriculture. The raw 
CSFH is a hierarchial file with household, person, nutrition, food item, and dietary awareness records. 
The Healthy Eating Index (HEI) file is a rectangular SAS file that contains only person records, with 
relevant household and food information appended. Since persons without three complete days of 
food intake data, infants, and pregnant and lactating women are excluded from the HEI file, the HEI 
file contains fewer persons than the raw CSFII. 

There are 3,997 observations on the 19^ HEI file, and 3,466 observations on the 1990 file. The 
files have identical layouts, with 176 variables and a 1396-byte record length. 



Table of Contents 



B. VARIABLES 

The Healthy Eating Index file contains variables taken directly fi-om the CSFII and variables 
computed especially for the Healthy Eating Index (HEI). When possible, we retained the CSFII 
variable name on the HEI file. For complete information about variables from the CSFII, consult 
the CSFn documentation provided by the U.S. Department of Agriculture. For the algorithms used 
for computed variables, check Appendix C, which contains the program used to compute the HEI, 
and Kennedy et al., 1994, which describes the conceptual basis for several of the computed variables. 
Short descriptions of each variable are provided in Appendix B. 

C. WEIGHTING 

There are five different weighting variables on the CSFII. Since our unit of analysis is the 
person, we used WGT_3DAY, which represents persons with three days of dietary intake. 
WGT_3DAY sums to the total number of persons, in thomands, residing in the 48 contiguous states. 
The weights also sura correctly to the number of women age 20 or older, the number of men age 20 
or older, and the number of persons under age 20. WGT_3DAY is the only weight variable retained 
on the HEI file. 

D. CONSTRUCTION OF THE FILE 

The SAS HEI file is the end product of a complex process that includes input files from USDA 
MPR's subcontractor, Technical Assessment Systems (TAS), and MPR. It draws on computer 
programs written in FORTRAN, SAS, and DOS batch language. The following text and Figures 1 
and 2 provide an overview of this process. Detailed technical information for the input files and 
computer programs is provided in Appendix A 

The data source for people on the HEI file is the CSFIL One record on the 1989 CSFII 
contains an error, which we corrected using the FIXDATAFOR program. There is no equivalent 



HGURE 1 
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error on the 1990 CSFII. Then we created a CSFII extract (CSF89D4.BIN) with complete 
demographic and dietary information for each person, using the XTTCSKFOR program. 

Meanwhile, we created a food-level file which contained nutrition information from three 
sources. Each observation in this file represented one of the 7-digit USDA food codes. First we 
merged the labels for these codes (TDIGIT.CDE) with the number of food group servings 
represented by 100 grams of the food. Using a sorting utility, we sorted the resulting output file, 
FIX_SERV.ASC, in ascending order by food group code. We merged the ensuing file with the 
constituent codes for each food. Constituent codes are the major ingredients composing a "mixture" 
food. For example, beef and bread might be the constituent codes for a hamburger. This 
information helped us quantify the variety in an individual's diet. After these merges, we had a food- 
level file (MRG_TAS3.ASC) with enough nutritional information to implement the Healthy Diet 
Index specifications. 

Using the person-level information on CSF89D4.BIN, the food-level information on 
MRG_TAS3ASC, and the maximum and minimum point HEI component matrix m PODfTS.ASC, 
we calculated the Healthy Eating Index value for every person in the file and created a new output 
file, CSF_IDX4.BIN. The program that creates this analysis file, CSF_IDX.FOR, is presented in 
Appendix C. For more detailed information on the HEI creation algorithms, consult Kennedy et al., 
1994. We used this file and its SAS version, CSFINDEX.SSD, to perform tabulations and analyses 
on the Healthy Eating Index. Three sample analysis programs written in SAS are shown in 
Appendix D. 

E. PROGRAM AND FILE ARCHIVING 

The programs and input files documented in Appendix A are archived on a 90 megabyte 
bemouUi disk. The bemouUi disk includes all of the files used by the FORTRAN programs. Ail of 
the files used to create the 1989 Healthy Eating Index can be found ia the HEI89 directory. The 
1990 files are in the HEI90 directory. 
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We provide zipped copies of the raw 1989 and 1990 CSFII files. We have changed one record 
on the 1989 file. Therefore, the raw files have different names: the 1989 file is called CSF89.FIX. 
and the 1990 file is called CSF90.RAW. These files can be unzipped with PKUNZIP, a shareware 
utility distributed by PKWARE, Inc. To receive a copy of the software and its documentation, send 
S47 to PKWARE, 9025 N. Deerwood Drive, Brown Deer, WI 53223. 

We also include both SAS and binary versions of our final Healthy Eating Index analysis file. 
The SAS file is called CSFINDEX.SSD; the binary version is CSF_IDX4.BIN. Although we do not 
provide explicit documentation for the binary file in this report, its layout can be inferred from both 
CSF_IDX.FOR and MAKESAS.SAS. 

F. REFERENCE 

Kennedy, Eileen, James Ohls, Steven Carlson, Katherine Fleming. The Healthy Eating Index: Final 
Report." Princeton, NJ: Mathematica Policy Research, Inc., December 1994. 
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THE HEALTHY EATING INDEX CREATION PROCESS 
INPUT FILES 



CSF89.RAW 



Source: U.S. Department of Agriculture, Human Nutrition Information Service 
Contents: The 1989 Continuing Survey of Food Intake by Individuals (CSFII). 
documentation for this file is available from USDA. 

CSF90.RAW 



Complete 



Source: U.S. Department of Agriculture, Human Nutrition Information Service 
Contents: The 1990 Continuing Survey of Food Intake t^ Individuals (CSFII). 
documentation for this file is available from USDA- 



Complete 



POINTSASC 



Source: 
Format: 
Contents: 



Columns 
1-3 

4-7 
8-13 
14-22 
23-31 



Research conducted by Jim Ohls at Mathematica Policy Research, Inc. 

ASCn 

A matrix which contains the maximum and minimum valu^ for each Healthy Eating Index 

component, broken out by age and sex groups. The maximum value is equivalent to a 

score of 10 on the component; the minimum value is equivalent to a score of 0. 



Variable 

Sex 

Age groups 

Index groups 

Max point 

Min point 



Notes 

l=male; 2= female 

1 = 1-3; 2=4-6; 3=7-10; 4=11-14; 5=15-18; 6=19-24; 7=25-50; 8=51-1- 

1-10 correspond to the ten index components; 11 is total calories 



SERVINGS.MPR 

Source: Technical Assessment Systems (TAS), Inc. 

Format: ASCII 

Contents: Translates the 7-digit USDA food codes to food pyramid servings. The file is hierarchical. 
The first hierarchy is the USDA food code. The second hierarchy is the pyramid 
category. There is one second-level record for each pyramid category in each USDA food 
code. 

Level 1: 



Column Variable 



Notes 



7-13 7 digit food code 

23-26 TAS code Used only by TAS 

38-39 # of pyramid groups corresponds to number of second-level records 
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Level 2: 

Column 

12-13 

17-26 
30-39 



Variable 

Pyramid group code 

# of grams/1 OOg 

# of servings/1 OOg 



VARSCORE.MPR 



Notes 

l=dairy 2=protein 3=carbohydrate 4=vegetable 5 = fruit 

6=]egume 9=sweeteners 10=fats&oils 

Used for Group 9&10 serving sizes 

Used for Group 1-6 serving sizes 



Source: TAS 

Format: ASCII 

Contents: Breaks down each each USDA 7 digit food code into its constituent codes. A hamburger, 
for example, could be broken down into a beef code and a bread code. This constituent 
code (CC) information is used to compute the variety compxanent of the Healthy Eating 
Index. 



Column 


Variable 


1-7 


7 digit food code 


10 


Mixture flag 


12-13 


Not calculated flag 


16-55 


Label 


56-62 


7 digit food code 


63-71 


Dairy CC 


72-80 


Meat CCl 


81-89 


Meat CC2 


90-98 


Meat CC3 


99-107 


Grain CCl 


108-116 


Grain CC2 


117-125 


Vegetable CCl 


126-134 


Vegetable CC2 


135-143 


Fruit CCl 


144-152 


Fruit CC2 


153-161 


Legume CCl 


162-170 


Legume CC2 


7DIGIT.CDE 



Notes 

"M" if the item is a mixture; blank otherwise 
Indicates items whose components were not calculated 
Text accompanying each food code 
Used as constituent code if item is not a mixture 

first of three possible meat constituent codes 

second 

third 



Source: CSF89_2.DOC. This file is part of the CSFIl documentation. 

Format: ASCII ~ 

Contents: Contains the text labels that correspond to each 7 digit food code. 

Column Variable 

1-7 7 digit USDA food code 

8-69 Label 
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PROGRAMS 



CSF_roX.FOR 

Input: 
Output: 
Include files: 
Language; 
Purpose: 
Calling Tree: 



CSF89D4.BIN or CSF90D4.BIN, POINTS.ASC, MRG_TAS3.ASC 

CSF_IDX4.BIN 

WORKCSF.INC. F7_CODE.INC. INDEX.INC 

FORTRAN 

Creates the Healthy Eating Index. 



(MAIN) 
-TIME[m] 
-DATE [m] 
-TIMER 

' 3*GETTIM 

I TIME [m] 

-READ_AUXILLARY_DATA 
-2*READ_PERS0N 

-CREATE_INDEX 

I 

I BINARY SEARCH INT4 



-ZERO_INDEX 
-WRITE_PERSON 
-PRINT_PERSON 
-READ_PERSON 
-TIMER [d] 
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nXDATA.FOR 

Input: 
Output: 
Include files: 
Language: 
Purpose: 

Calling tree: 

nX_SERV.FOR 

Input: 
Output: 
Include files: 
Language: 
Purpose: 

Calling tree: 

MAKESAS.SAS 

Input: 
Output: 
Language: 
Purpose: 

MRG_TAS3.FOR 

Input: 
Output: 
Include files: 
Language: 
Purpose: 

Calling tree: 
SORTSERV.BAT 



CSF89.RAW 

CSF89.FIX 

None 

FORTRAN 

Fixes a bad record on the 1989 CSFTI. There is no equivalent program for the 

1990 CSFTI Healthy Eating Index. 

This program has no subroutines. 



SERVINGS.MPR, 7DIGIT.CDE 

FIX_SERV.ASC 

None 

FORTRAN 

Writes out a file (FIX_SERV.ASC) that combines the NCFS code and portion 

sizes from SERVINGS.MPR with the labels on 7DIGIT.CDE. 

This program has no subroutines. 



CSF_IDX4.BIN 

CSFINDEX.SSD 

SAS 

Creates a SAS version of the Healthy Eating Index file. 



nX_SERV.SRT, VARSCORE.MPR 

MRG_TAS3.ASC 

None 

FORTRAN 

Writes out a file (MRG_TAS3.ASC) with the serving sizes, labels, and constituent 

component codes for every possible NCFS code. 

This program has no subroutines. 



Input: FIX_SERV.ASC 

Output: FIX_SERV.SRT 

Language: DOS batch file that invokes OTSORT 

Purpose: Sorts FTX_SERV.ASC in ascending order by NCFS code. 
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XTCSF.FOR 

Input: 
Output: 
Include files: 
Language: 
Purpose: 
Calling tree: 



CSF89.FIX or CSF90.RAW 
CSF89D4.BIN or CSF90D4.BIN 
XTCSF.INC, EXTVAR.INC 
FORTRAN 

Creates a person-level extract from the CSFII. 



(MAIN) 
—TIMER 

' 3*GErnM 

I TIME [m] 



-2*READ_HH 
-FRINT_HH 
-EXTRACT_DATA 
-READ_HH 
-TIMER [d] 
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APPENDIX B 
DESCRIPTION OF HEI ANALYSIS FILE 
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The SAS System 
CONTENTS PROCEDURE 



Data 


Set Name: OUT. CSF INDEX 




Observations: 3997 


Member Type: DATA 






Variables: 176 


Engine: V604 






Indexes: 


Created: 14:40 Fn 


day, Oeceinber 9, 


1994 Observation Lefigth: 1396 


Last 


Modified: 14 


40 Fn 


day, Decentjer 9, 


1994 Deleted <%servations: 


Protection: 








Conpressed: NO 


Data 


Set Type: 








Sorted: NO 


Label 














... 


--Alphabetic 


-ist of Variables and Attributes 


H) 


Variable 


Type 


Len 


Pos 


Label 


57 


ACTIVE L 


Nin 


8 


444 


Self-assesment of activity level 


23 


AGE 


Nun 


8 


172 


Age in years 


173 


AGG CNT 


Nun 


8 


1364 




161 


AVGLEGUM 


Num 


8 


1268 


Average daily leguaes consunption 


156 


AVG FG1 


Nun 


8 


1228 


Average daily grains consunption 


157 


AVG FG2 


Nun 


8 


1236 


Average daily vegetables consunption 


158 


AVG FG3 


Nun 


8 


1244 


Average daily fruits consunption 


159 


AVG FG4 


Nun 


8 


1252 


Average daily dairy consunption 


160 


AVG FG5 


Nun 


8 


1260 


Average daily meat consuiption 


55 


BMl" 


Nun 


8 


428 


Body mass index: wgt (l(g)/ligt squaredCm) 


119 


BMILIC 


Nun 


8 


932 


Hunan milk consuned? 1'yes 2=no 


20 


CHILDREN 


Nun 


8 


148 


HH has menbers < age 20? I^yes 2=no 


162 


C0MP01 


Nun 


8 


1276 


Grains HEI conponent 


163 


CQHP02 


Nun 


8 


1284 


Vegetables HEI component 


164 


C0MP03 


Nun 


8 


1292 


Fruit HEI component 


165 


C0HP04 


Nun 


8 


1300 




166 


COMPOS 


Nun 


8 


1308 


Meat HEI component 


167 


C0MP06 


Nun 


8 


1316 


All fat-pet HEI component 


168 


COMP07 


Nun 


8 


1324 


Saturated fat pet HEI component 


169 


COMPOS 


Nun 


8 


1332 


Cholesterol HEI component 


170 


C0MP09 


Nun 


8 


1340 


Sodiun HEI component 


171 


C0MP10 


Nun 


8 


1348 


Variety HEI component 


64 


01 AMTUS 


Nun 


8 


500 


Self-assesment of day 1 food/drink ant 


59 


01 DATE 


Nun 


8 


460 


Day 1 date of intake: day of month 


61 


01 DAY 


Nun 


8 


476 


Day 1 date of intake: day of week 


63 


di'few 


Nun 


8 


492 


Day 1 explanation for few/no food recs 


58 


01 MNTH 


Nun 


8 


452 


Day 1 date of intake: month 


62 


OrNREC 


Nun 


8 


484 


Day 1 nunber of food records 


65 


OrRESUS 


Nun 


8 


508 


Day 1 reason for difference 


60 


OrYEAR 


Nun 


8 


468 


Day 1 date of intake: year 


72 


02 AMTUS 


Nun 


8 


564 


Self-assesment of day 2 food/drink ant 


67 


02 DATE 


Nun 


8 


524 


Day 2 date of intake: (tey of month 


69 


D2~0AY 


Nun 


a 


540 


Day 2 date of intake: day of week 


71 


D2~FEW 


Nlbi 


8 


556 


Day 2 explanation for few/no food recs 


66 


02 MNTH 


Nun 


8 


516 


Day 2 date of intake: month 


70 


D2~NREC 


Nun 


8 


548 


Day 2 fKinber of food records 


73 


02 RE5US 


Nun 


8 


572 


Day 2 reason for difference 


68 


02 YEAR 


Nun 


8 


532 


Day 2 date of intake: y^r 


80 


03 AMTUS 


Nun 


8 


628 


Seif-assesnmt of Day 3 food/drink amt 


75 


03~DATE 


Nun 


8 


588 


Day 3 date of intake: cfaiy of month 


77 


D3~0AY 


Nun 


8 


604 


Day 3 date of intake: day of week 


79 


03 FEW 


Ntn 


8 


620 


Day 3 explanation for few/no food recs 


74 


D3~MNTH 


Nun 


8 


580 


Day 3 date of intake: month 


78 


D3~MREC 


Nun 


8 


612 


Day 3 nunber of food records 


81 


D3~RESUS 


Nun 


8 


636 


Day 3 reason for difference 


76 


D3~YEAR 


Nun 


8 


596 


Day 3 date of intake: year 


118 


DAYCaO40 


Nun 


8 


924 


Day of intake, type 40 record 


19 


OHKHH 


Nun 


8 


140 


Did HH complete DHKS? 1«yes 2=no 


37 


OS CALOR 


Nun 


8 


284 


Source of calorie/twight loss diet 


45 


OS DIAB 


Nun 


8 


348 


Source of diabetic diet 


39 


DS~FAT 


Nun 


8 


300 


Source of low fat/cholesterol diet 


49 


DS~HFIB 


Nun 


8 


3K) 


Source of high fiber diet 


47 


DS~LFIB 


Nun 


8 


364 


Source of low fiber diet 


51 


0S~OTHER 


Nun 


8 


396 


Source of other diet 


41 


0S_SALT 


Nun 


8 


316 


Source of low salt diet 


43 


DS~SUGAR 


Nun 


8 


332 


Source of low sugar/ sugar free diet 


36 


DT~CAL0R 


Nun 


8 


276 


On calorie/weight loss diet? 1=yes 2=no 


44 


DT~DIAB 


Hun 


8 


340 


On a diabetic diet? 1=yes 2=no 


38 


OT FAT 


Nun 


8 


292 


On low fat/cholesterol diet? 1=yes 2=no 
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48 

46 

50 

40 

42 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

174 

150 

151 

152 

153 

154 

155 

6 

13 

176 

21 

4 

11 

115 

86 

15 

34 

18 

16 

56 

5 

28 

27 

17 

25 

26 

117 

88 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

1 

8 

112 



OT HFIB 

oAfiB 

0T~OTHER 
DT~SALT 

dt'sugar 

F1A 

FIB 

F1C 

FID 

FIE 

F4A 

F4B 

F4C1 

F4C2 

F4C3 

F40 

F4E1 

F4E2 

F4F 

F4G 

F4H 

F41 

F4J 

F4IC 

F4L 

F4H 

F4N 

F40 

FATRATIO 

FG1 

FG2 

FG3 

FG4 

FG5 

FG6 

FOOOOESC 

GEOG 

HD INDEX 

HEWSTAT 

HHID 15 

HHI0~20 

HHID~40 

HH1D~50 

HHSZ" 

HLTHDIET 

H RCVFS 

INCOME 

LEISURE 

LGRA0E15 

NUMOAYS 

ORIGIN 

PCTPOV 

PL STAT 

RACE 20 

RACE~40 

RACE~50 

RDAl" 

R0A2 

RDA3 

R0A4 

R0A5 

R0A6 

R0A7 

R0A8 

R0A9 

ROA10 

RDA11 

RDAl 2 

R0A13 

R0A14 

RDAl 5 

RDA16 

RDAl 7 

RT 15 

RT 20 

RT~40 



Nan 
Hum 

NURI 

Nvjn 

Nun 

Nun 

Num 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Num 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Nun 

Char 

Char 

Char 



8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 

a 

8 
8 
8 
8 
8 
8 
8 
8 
8 

a 

8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 

a 

B 
8 
8 
8 

a 

8 

a 
a 

8 
8 
8 
8 
8 
8 

a 

8 

4 
4 
4 



372 

356 

388 

308 

324 

696 

704 

712 

720 

728 

736 

744 

752 

760 

768 

776 

784 

792 

800 

808 

816 

824 

832 

840 

848 

856 

864 

872 

1372 

1180 

1188 

1196 

1204 

1212 

1220 

40 

92 

1388 

156 

24 

76 

900 

672 

108 

260 

132 

116 

436 

32 

212 

204 

124 

188 

196 

916 

688 

940 

948 

956 

964 

972 

980 

988 

996 

1004 

1012 

1020 

1028 

1036 

1044 

1052 

1060 

1068 

4 

56 
880 



Important 
Important 
Important 
Important 
Important 
Important 
Important 
Important 
Important 
Important 
Important 
Important to: 



Important 
Important 



On a high fiber diet? 1=yes 2=no 

On a low fikjer diet? 1=yes 2=no 

On another diet? 1=yes 2=no 

On a low salt diet? l=yes 2=no 

On low sugar/sugar free diet? 1=yes 2=no 

Diet awareness question: fruit servings 

Diet awareness question: vegetable svgs 

Diet awareness question: dairy servings 

Diet awareness question: grain servings 

Diet awareness question: meat servings 

Important to: avoid salt? 

to: avoid saturated fat? 

to: eat fruits & vegs? 

to: eat plenty of vegs? 

to: eat plenty of fruits? 

to: avoid sugar? 

to: drink in moderation? 

to: limit alcohol? 

to: eat adequate fiber? 

to: eat adequate starch? 

to: eat variety of foods? 

to: maintain a healthy weight? 
avoid fat? 
Important to: avoid cholesterol? 
Important to eat 6+ servings of grain? 

to: eat plenty of grain? 

to: eat calcium-rich foods? 
Important to: eat 2+ dairy servings? 
Fat as X of total calories 
Total grains consumed over 3 days 
Total vegetables consuned over 3 days 
Total fruits consumed over 3 days 
Total dairy consumed over 3 days 
Total meat consumed over 3 days 
Total legunes consumed over 3 days 
Measure of food security 
Geographic division (9 possible regions) 
Healthy eating index value 
Head of household status 
Household ID number on type 15 record 
Household 10 nunber on type 20 record 
Household ID nunber on type 40 record 
Household ID number on type 50 record 
HH size excluding roomers 
Healthfulness of diet 
Is HH receiving food stamps? I^yes Ztk) 
HH income for the previous year 
Physical activity during leisure 
Highest grade finished by either HH head 
# of days of conplete intake records 
Hispanic origin: 1=Hisp 2>Non-Hisp 
Income as X of poverty threshold 
Pregnant/ I actating status 
Race: 1=white 2=black 3sAsian 4=Aleut 
Race on type 40 record 
Race on type 50 record 
X consuned of food energy RDA 
X consuned of protein RDA 
X consumed of Vitamin A (lU) RDA 
X consumed of Vitamin A (RE) RDA 
X consuned of Vitamin E (Alpha-TE) ROA 
X consuned of Vitamin C RDA 
X consumed of Thiamin RDA 
X consumed of Riboflavin RDA 
X consuned of Niacin RDA 
X consuned of Vitamin B-6 RDA 
X consuned of Folate RDA 
X consuned of Vitamin B-12 RDA 
X consuned of Calciun ROA 
X consuned of Phosphorus RDA 
X consuned of Magnesium RDA 
X consuned of I ron RDA 
X consuned of Zinc RDA 
Record type on type 15 record 
Record type on type 20 record 
Record type on type 40 record 
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Char 


4 


652 


32 


R CMTL 


Nun 


8 


244 


30 


R~EI4P 


NURI 


8 
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33 


r"freel 


NUR) 


8 
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54 


R~HGT 


Num 


8 


420 


31 


R~LGRADE 


NURI 


8 


236 


12 


R~NUM 20 


Num 


8 


84 


116 


R NUM 40 


Nun 


8 


908 


87 


R NUM 50 


Nun 


8 


680 


22 


R~RCVFS 


Nun 


8 


164 


53 


r"wgt 


Nun 


8 


412 


29 


R WIC 


Nun 


8 


220 


3 


SAMPLE 15 


Nun 


8 


16 


10 


SAMPLE20 


Nun 


a 


68 


114 


SAKPLE40 


Nun 


8 


892 


85 


SAMPLE50 


Nun 


8 


664 


175 


SAT FAT 


Nun 


8 


1380 


24 


sex" 


Nun 


8 


180 


35 


SPEOJIET 


Nun 


8 


268 


172 


SPLITCNT 


Nun 


8 


1356 


7 


SURPLUS 


Nun 


8 


4« 


137 


T0TMUT1 


Nun 


S 


1076 


138 


T0TNUT2 


Nun 


8 


1084 


139 


T0TNUT3 


Nun 


8 


1092 


140 


T0TNUT4 


Nun 


8 


1100 


141 


T0TMUT5 


Nun 


8 


1108 


142 


T0TNUT6 


Nun 


8 


1116 


143 


T0TMUT7 


Nun 


8 


1124 


144 


T0TMUT8 


Nun 


8 


1132 


145 


T0TNUT9 


Nun 


8 


1140 


146 


TOTMUT10 


Nun 


8 


1148 


147 


T0THUT11 


Nun 


8 


1156 


148 


TOTMUT29 


Nun 


8 


1164 


149 


TYP30CNT 


Nun 


8 


1172 


14 


URB 


Nun 


8 


100 


52 


VEGET 


Nun 


8 


404 


82 


WGT 30AY 


Nun 


8 


644 


2 


YEAR 15 


Nun 


8 


8 


9 


YEAR~20 


Nifl) 


8 


60 


113 


YEAR~40 


Nun 


8 


884 


84 


YEAR 50 


Nun 


8 


656 



Record type on type 50 record 

# of complete school lunches gotten/week 
Employment status 

Lunches free, reduced, or full price? 

Height 

Highest grade coinpleted for persons > 15 

Type 20 person number 

Person nunber on type 40 record 

Person number on type 50 record 

Is person receiving food stamps? 1=y 2=n 

Weight 

Is person receiving WIC? 1=yes 2=no 

Type 15 sample: 1 > Basic 2 s Low Income 

Type 20 sample: 1 > Basic 2 > Low tncone 

Type 40 sample: 1 = Basic 2 = Low Incone 

Type 50 sample: 1 - Basic 2 - Low Income 

Saturated fat as X of total calories 

Sex: 1 = male 2 > female 

On a special diet? 1=ye» 2*no 

Used to calculate variety component 

Did HH receive USDA surplus? Uyes 2=no. 

Total grams of water consuned 

Total kilocalories of food energy 

Total grsns of protein 

Total grams of fat 

Total grwns of saturated fatty acids 

Total g of monounsaturated fatty acids 

Total g of polyunsaturated fatty acids 

Total milligrams of cholesterol 

Total grans of carbohydrates 

Total grams of dietary fiber 

Total grams of alcohol 

Total milligrams of sodiun 

# of type 30 {food item) recor<te 
Urbanization: 1=eity 2=suburb 3=nonaietro 
Do you consider yourself a vegetarian? 
Weight for persons w/3 days of intake 
Year of survey on type 15 record 

Year of survey on type 20 record 
Year of survey on type 40 record 
Year of survey on type 50 record 
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APPENDIX C 
FORTRAN PROGRAM WHICH CREATES THE INDEX VARIABLES 
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C--- SAVED AS CSF IDX.FOR 

C--- PURPOSE: READ A BINARY EXTRACT OF THE CSFU 

DATA AND CREATE A HEALTHY DIET 

INDEX. 

THIS VERSION prompts for the day. 



C--- 
C--- 

c--- 
c--- 
c --- 

c--- 
c--- 
c--- 
c*** 



PREV PGH; 
PREV PGM: 
PREV PGH: 
PREV PGM: 



XTCSF.FO! 
MRG TAS2.F0R 
FIX~SERV.FOR 

S0RTSERV.9AT 



IMPLICIT NONE 

INCLUDE 'WORKCSF.INC 
INCLUDE 'F7 CODE. INC 
INCLUDE 'INDEX. INC 

REAL*8 AVG C0MP01 
REAL'S AVG~C0MP02 
REAL*8 AVG C0MP03 
REAL'S AVG~C0MP04 
REAL'S AVG'cOMPOS 
REAL'S AVG~C0HP06 
REAL'S AVG~C0MP07 
REAL'S AVG~COMPOS 
REAL'S AVG~COMP09 
REAL'S AVG'coMPIO 



CHARACTER*12 INFILE NAME 

CHARACTER*12 OUTFILE NAME 

CHARACTER*12 PRFILE NAME 

CHARACTER* 12 C TIME~ 

CHARACTER'12 C~DATE 
(;••*•****•••*•*•**•*••**•••••***••••• 

C (»>EN FILES ---' 



PRFILE = 8 
KEOF = 1 

100 CONTINUE 

C {WHICH_OAY: 1=0AY1, 2»0AY2, 3=0At3, 4«ALL 3 DAYS) 

WRITE(6,*) 'WHICH FILE DO YOU UANT7' 

URITE{6,*) 'PLEASE ENTER:' 

WRITE(6,') ' 1 = DAY 1 FILE' 

WRITE(6,*) ' 4 = 3 DAY FILE' 

WRITE(6,') ' = STOP RUN' 

WRITE(6,*) 'PLEASE ENTER: ' 

READ(5,*) WHICH DAY 

WRITE(6,') ' USTnG: '.WHICH DAY 

WRITE(6,') ' ' 



TOT C0MP01 


= 0.0 


TOT C0MP02 


» 0.0 


TOT C0MP03 


= 0.0 


TOT C0HP04 


« 0.0 


TOT COMPOS 


- 0.0 


TOT C0MP06 


' 0.0 


TOT C0MP07 


- 0.0 


TOT COMPOS 


= 0.0 


TOT C0MP09 


= 0.0 


TOT COMP10 


= 0.0 


TOT WGT = 0.0 



DAYI » .FALSE. 
DAY2 = .FALSE. 
DAY3 = .FALSE. 
IF(WHICH DAY .EO. 4) THEN ! ALL THREE DAYS 

INFILE NAME = 'CSF90D4.BIN' 

OUTFILE NAME » 'CSF IDX4.B1N' 

PRFILE NAME = 'CSF TdX4.0UT' 

DAYI =~.TRUE. 

DAY2 » .TRUE. 

0AY3 = .TRUE. 
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ELSE IF<WHICH DAY .EQ. 1) THEN ! DAY 1 
INF[LE_MAME = 'CSF9001.BIN' 
CXJTFILE NAME = 'CSF_I0X1.BIN' 
PRFILE NAME = 'CSF IDXI.OUT' 
DAY1 =~.TRUE. 

ELSE 1F(WHICH_DAY .EQ. 0) THEN ! STOP 
WRITE(6,*) ' STOPPING RUN' 
STOP 

ELSE 

URITE(6,*> 
WRITE{6,*) 
GO TO 100 

END IF 



SORRY; YOU HAVE ENTERED AN INVALID CODE.' 
PLEASE RE-ENTER' 



OPEN (UN IT = 8,FILE=PRFILE_NAME) 

OPEN(UNIT = 9 
& ,FILE=INFILE NAME 
& .ACCESS-' TRANSPARENT' 
& ,8LOCICSIZE=32000) 

OPENCUNIT = 10 
& ,FILE=OUTFILE NAME 
& ,ACCESS=' TRANSPARENT' 
& ,BLOCKSIZE=32000) 



CALL TIME(C_TIME) 
CALL DATECC DATE) 
WRITE(PRFILE,*) C_DATE 
WRITE(PRFILE,*) C TIME 
WRITE(PRFILE,*) 'OUTPUT FILE 
WRITECPRFILE,*) 'PRINT FILE 
WRITE(PRFILE,*) 'WHICH DAY 
CALL TIMERCKEOF, PRFILE) 
CALL READ AUXILLARY DATA 
CALL READ~PERSON 



'.OUTFILE NAME 
', PRFILE NAME 
'.WHICH DAY 



KEOF = 2 

CALL READ PERSON 

KFREO = 0~ 



C MAIN PROCESSING LOOP • 



200 CONTINUE 



C**** 

C***« 

c«*** 



c**** 

c**** 

C*"* 



IFCTYPE 20_CNT 
1F(TYPE''20 CNT 



.LE. 
,GT. 



1) KFREO = 1 

496 .AND. TYPE 20 CNT 



.LE. 500) KFREO = 1 



10) WRITE(6,*) ' AGE = '.AGE.' FOR: '. TYPE 20_CNT 
EQ. 10022 .OR. HHID 15 .EQ. 10025) KFREO = l" 
OR. HHID~15 .EQ. 10041) KFREO = 1 
HHI0"l5 .EO. 10010) THEN 



IF<AGE .LE 
IF(HHID 15 

IF(HHID~15 .EO. 10027 
IF(HHID"15 .EO. 10009 .OR 
KFREO = 9 ! VARIETY 

WRITE<8.*) ' --- FQUMO A ZERO VARIETY RECORD 

END IF 

IF(HHID 15 .EQ. 10012 .OR. HHID 15 .EQ. 10234) THEN 
KFREO = 9 ! VARIETY 

WRITE(8,*) ' --- FOUND A ZERO VARIETY RECORD 

C«**« END IF 

C IFCHHID 15 .EO. 21159 .OR. HHID 15 .EQ. 26092) THEM 

C KFREO =910 VARIETY 

C WRITE(8.*) ' --- FOUND A ZERO VARIETY RECORD 

C END IF 

IF(HHID 15 .EQ. 10326 
& .OR. HHID 15 .EO. 12242 
& .OR. HHID~15 .EQ. 20125 
& ) THEN ~ 
KFREO = 1 ! 

WRlTECa.*) ' ■-- FOUND A JIM DEBUG CASE ' 

END IF 



2020 



IF(M0D(TYPE_20 CNT, 100) .EQ. 0) THEN 
URITE(6,2020) TYPE_20_CNT 
FORMATC'+TYPE 20 CNT ' '.16) 

END IF 
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IF(TYPE 30 CNT .GT. 0) THEN 

CALL~CREATE INDEX 
ELSE 

CALL ZERO INDEX 
END IF 

IF(.NOT. HUMAN_MILK .AND. AGE .GT. 1) CALL WRITE_PERSON 

IFCKFREQ .GT. 0) CALL PRINT_PERSC»I 

KFREQ = 

CALL READ PERSON 

1F(KE0F .EQ. 3) GO TO 900 

GO TO 200 ! READ NEXT PERSON 

900 CONTINUE 

C EOF 

WRITE(PRFILE,9010) HUMAN HILK CNT 
& ,OUT CNT 

9010 FORMATC HWWN MILK CNT = ',16 
& /,' OUT CNT ~ = ',16 

& ) 



AVG C0NP01 
AVG~C0MP02 
AVG~C0MP03 
AVG~COMP04 
AVG~C0MP05 
AVG~C0MP06 
AVG~C0MP07 
AVG~C0MP08 
AVG C0MP09 
AVG~C0MP10 



T0T_C0MP01 
TOT C0MP02 
TOT"cOMP03 
TOT~C0MP04 
TOT~COMP05 
TOT~C0MP06 
TOT~C0MP07 
TOT~COMP08 
TOT C0MP09 
TOT~C0MP10 



TOT WGT 
TOTWGT 
TOT WGT 
TOT~WGT 
TOT~WGT 
TOT UGT 
TOT~WGT 

tot"wgt 

TOT WGT 
T0T~WGT 



9020 



WRITE(PRFILE,9020) TOT 

& ,AVG 

& ,AVG 

& ,AVG 

& ,AVG 

& ,AVG 

& ,AVG 

& ,AVG 

& ,AVG 

& ,AVG 

& ,AVG 

FORMAT (/// 



& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



/, 
/, 
/, 
/. 
/. 
/, 
/, 
/, 
/, 
/, 
/, 
) 



TOT WGT = 
AVG~C0MP01 = 
AVG~C0MP02 » 
AVG~C0MP03 = 
AVG~C0MP04 = 
AVG_C0HP05 = 
AVG C0MP06 = 

AvcIcoMPor ■ 

AVG CGMP08 « 
AVG~C0W>09 « 
AVG~C0HP10 = 



WGT 

"COMPOI 

'COM>02 

"C0MP03 

'C0HP0« 

COMPOS 

CaHP06 

"coMPor 
'compos 

"COMPOV 
"COMPIO 

',F12.2 
',F12.2 
',f12.2 
',F12.2 
',F12.2 
',F12.2 
',F12.2 
',F12.2 
',F12.2 
',F12.2 
',F12.2 



CALL TIMER(KEOF,PRFILE} 

STOP 

END 



SUBROUTINE REAO_AUXILLARY_OATA 

C--- READ IN TAS 7-DIGIT FOOD CODE FILE ALONG 

C--- WITH THE SERVINGS PORTIONS AND LABEL IN 1 FILE 

C--- READ IN POINTS ARRAY FROM THE SECOND FILE 

£***•«•••••••••••••••••**••••••••••••*•••••••*••• 



IMPLICIT NONE 
INTEGER** I 
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INTEGER*^ J 
INTEGER*^ ISEX 
INTEGER** I AGE 
INTEGER** IGRP 
CHARACTER*! FF/Z'OC'/ 



INCLUDE 'UORKCSF.INC 
INCLUDE 'F7 CODE. INC 
CHARACTER*rSEX GRP<2J /'M'.'F'/ 
CHARACTER'S AGE'cRPCS)/ 

' 1-3' 

' 4-6' 

' 7-10' 

'11-14' 

'15-18' 

'19-24' 

'25-50' 

' 51 + ' 

/ 
CHARACTER*9 FOOD GRP(II)/ 



& 
& 
& 
& 
& 
& 
& 
& 
& 
C 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 



'Grain' 
/Vegetable' 
, 'Fruit' 
, 'Dairy' 
/Meat' 
,'All Fat' 
,'Sat Fat' 
,'Cholest' 
, 'Sodium' 
/Variety 
, 'Calories' 

/ 



WRITE(PRFILE,1000) 
1000 FORMAT< IN READ AUXILLARY DATA ') 



OPEN(UHIT = 1,FILE='«RG TAS3.ASC') 
OPEN(UNIT = 2,FILE='P0!MTS.ASC') 

MAX_CCOES = 

1 - 1 

URITE<6,*) ' READING THE MERGED TAS-FOOOLABEL FILE ' 

100 CONTINUE 

C read the 7 digit foodcodes, labels, and servings per 100 grams 

REAO(1,1010,END=200} FO0OC00E7(I) 

& ,(SERVINGS(I,J),J=1,10} 

& ,LABEL7(I) 

4 ,{VFC(I,J),J=1,13) 

1010 F0«MAT{I7,10F7.2,A40,13I8) 



1200 



IFCI .LE. 20) THEM 




WRITE(PRF1LE,1200) 




& 


F000CQDE7( I ) 


& 


,LABEL7(I) 


& 


,(SERV!NGS(I,J),J=1,10} 


8, 


,(VFC(1,J),J=1,13) 


FORMAT (' ' 




& / FtXVCOOE 


: ',17 


& / LABEL: ' 


,A40 


& // SERVINGS 


:.',10F8.2 


& // VFC 


=',1318 


& > 




END IF 




1 = 1 + 1 




GO TO 100 





C--- 
200 



2010 



read in the points file 
CONTINUE 

MAX COOES = I ! used in binary search for food codes 
URITE<PRFILE,2010) FF,MAX COOES 
F0RMAT(A1,//,' *• At End of foodcode file:' 
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,/,' Total number of records read in: ', 18) 



WRITE(6,*) ' READING THE POINTS. ASC FILE. 
WR1TE(6,«) ' ' 



READ (2, 2020) 
2020 FORHAT(A50) 



SKIP THE HEADER LINE AT THE TOP 



300 CCNITINUE 

REAO(2,3Q10,END=900) ISEX 

5 , lAGE 

6 , IGRP 

& ,NAX POINT( ISEX, lAGE, IGRP) 

& ,HIN POINT( ISEX, lAGE, IGRP) 

3010 F0RHAT{T3, 1 1 ,T7, 1 1 ,T12, I2,T15,F8.3,T24,F8.3,T35,A50) 



- convert variety from a 3 day level to a one day level 
IFdGRP .EO. 10 .AND. WHICH DAY .NE. 4) THEN 

MAX_POINT(ISEX,IAGE,IGRP) = MAX POINT(ISEX,IAGE, IGRP) / 2.0 
MIN~POINT(ISEX,IAGE,IGRP} » NIN'pOINTC ISEX, lAGE, IGRP) / 2.0 
END if" 

- CONVERT MEAT FROM OUNCES TO SERVINGS 

IFdGRP .EQ. 5} THEN ! convert meats from oz to servings 

MAX POINT( ISEX, lAGE, IGRP) - MAX POINTdSEX, lAGE, IGRP) / 2.5 
MIN_POINT< ISEX, lAGE, IGRP) = Ml«_POINTdSEX, lAGE, IGRP) / 2.5 
END IF 

WRITE(PRFILE,3020} SEX GRPCISEX) 
& ,AGE~GRPdAGE} 

& ,F000 GRPdCRP) 

& ,HAX POINTdSEX, lAGE, IGRP) 

& ,MIN~P01NTdSEX,IAGE,IGRP) 



C 

C 

C 

C 

C 

C3020 FORMAT ( 

C t 

» 
4 
& 
& ) 



',A1 

'.A5 

',A9 

MAX POINT =',F8.2 

MIN^POINT =',F8.2 



GO TO 300 
900 CONTINUE 

C 

C--- eof for both files 

C 

WRITE<PRFILE.9010) FF 
9010 FORMAT{A1,T45, 'MALES') 

WRITE(PRFILE,9020) (AGE GRP(I),I=1,8) 
9020 FORMAT(/,' Age Group' .TIS.SAIO) 

00 IGRP = 1,11 I FOOD GROU>S 

WRITE(PRFILE,9050) FOOD GRPdGRP) 
& ,{MA)( P0INT(1,IAGE,IGRP),IAGE=1,8) 

9050 FO«MAT(/,' ',A10,' MAX: ',8F10.3) 

MITE(PRFILE,9060) FOOD GRPdGXP) 
& ,(MIN P0INT(1,IAGE,IGRP),IAGE>1,8) 

9060 FORMATC ',A10,' MIN: ',8F10.3) 

END DO 

WRITE(PRFILE,9110) 
9110 FORMAT(///,Ta,' FEMALES') 

URITE(PRFILE,9020) {AGE_GRPd), I»1,8) 
00 IGRP = 1,11 ! FOOD GROUPS 

WRITE(PRFILE,9050) FOOD GRPdGRP) 
& ,(MAX P0INT(2,tAGE,IGRP),IAG£a1,8> 

WRITE(PRFILE,9060) FOOD GRPdGRP) 
& ,(MIN P01NT(2.!AGE,IGRP),IAGE=1,8) 

END 00 

URITE(PRFILE,9910) FF 
9910 FORMAT { 

& /,' END OF READ AUXILLARY DATA ',A1 

& ) 



CLOSE(I) 
CL0SE<2) 
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RETURN 
END 

SUBROUTINE READ PERSON 



C-- 



READ IN AN ENTIRE HOUSEHOLD AT A TIME 



IMPLICIT NONE 
INTEGER*4 J 

CHARACTER*! FF /Z'OC'/ 

INCLUDE 'WORKCSF.INC 

C IFCKFREQ .GT. 0) ' IN READ PERSON 

IF(KFREO .GT. 0) THEN 

WRITE(PRFILE,1100) FF,IN CNT 

1100 F0RMAT(A1,' IN READ_PERSOM ---' 

& ,' IN_CNT = ',18) 
END IF 

1F(KE0F .EQ. 2) THEN 

GO TO 200 
ELSE IFCKEOF .EO. 1) THEN 

GO TO 100 
ELSE 

GO TO 900 
END IF 



UORKCSF 



100 CONTINUE 

IN_CNT = 
TYPE 20 CNT = 
TYPE"30~CNT = 

RETURN 



200 


COWTIMUE 






r. . _ 


**» 


READ 


A PERSON RECORD (TYPE 20) 


L 




f 




AND 


IHEN ALL TYPE 30'S 


FOR 


L 




p 




THAT 


PERSON 


»**«**i 




L 


*** 


»••••••• 






READ(9,END=900) 






C-" 


TYPE 15 










& 




RT 15 


TYPE 


IS VARIABLE 








,YEAR 15 


TYPE 


IS VARIABLE 








.SAMPLE 15 


TYPE 


15 VARIABLE 








,HHID 15 


TYPE 


15 VARIABLE 








,M LGRADE 


TYPE 


15 VARIABLE 








,F~LGRADE 


TYPE 


15 VARIABLE 








,F(XX)SEC 


TYPE 


IS VARIABLE 








.SURPLUS 


TYPE 


15 VARIABLE 


c--- 


TYPE 20 














,RT 20 


TYPE 


15-20 VARIABLE 








.YEAR 20 


TYPE 


15-20 VARIABLE 








.SAMPLE 20 


TYPE 


15-20 VARIABLE 








.HHIO 20 


TYPE 


15-20 VARIABLE 








,R NUN 20 


TYPE 


20 VARIABLE 








,GEOG 


TYPE 20 VARIABLE 








,URB 


TYPE 


20 VARIABLE 








,HHSZ 


TYPE 


20 VARIABLE 








.INCOME 


TYPE 


20 VARIABLE 








.PCTPOV 


TYPE 


20 VARIABLE 




& 




,H RCVFS 


TYPE 


20 VARIABLE 




& 




.DHKHH 


TYPE 


20 VARIABLE 




& 




.CHILDREN 


TYPE 


20 VARIABLE 




& 




. HEADSTAT 


TYPE 


20 VARIABLE 




& 




,R RCVFS 


TYPE 


20 VARIABLE 




S 




,AGE 


TYPE 


20 VARIABLE 




& 




.SEX 


TYPE 


20 VARIABLE 




& 




,PL STAT 


TYPE 


20 VARIABLE 




& 




.RACE 20 


TYPE 


20 VARIABLE 




& 




.ORIGIN 


TYPE 


20 VARIABLE 
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s 


,N««AYS ! 


TYPE 


20 VARIABLE 




& 


,R WIC j 


TYPE 


20 VARIABLE 




& 


,R EMP j 


TYPE 


20 VARIABLE 




s 


.R^LGRADE ! 


TYPE 


20 VARIABLE 




& 


,R CNTL ! 


TYPE 


20 VARIABLE 




s 


,R~FREEL ! 


TYPE 


20 VARIABLE 




s 


.HLTHOIET ! 


TYPE 


20 VARIABLE 




& 


.SPECOIET ! 


TYPE 


20 VARIABLE 




& 


,DT CALOR ! 
- Yes" 


TYPE 


20 VARIABLE 


• 136 1 


& 


,DS_CALOR ! 


TYPE 


20 VARIABLE 


! 137 1 




- Doctor, dietician 






& 


,DT FAT ! 
- Yes" 


TYPE 


20 VARIABLE 


! 138 1 


& 


,OS_FAT f 
- Doctor, diet 


TYPE 
ician 


20 VARIABLE 


1 139 1 


& 


,DT SALT ! 
- Yes" 


TYPE 


20 VARIABLE 


1 140 1 


& 


,DS_SALT 1 


TYPE 


20 VARIABLE 


• 141 1 




- Doctor, dietician 






& 


,DT SUGAR 1 
- Yes" 


TYPE 


20 VARIABLE 


! 142 1 


& 


,DS_SUGAR 1 


TYPE 


20 VARIABLE 


! 143 1 




- Doctor, dietician 






& 


.DT DIAB 1 
- Yes" 


TYPE 


20 VARIABLE 


! 144 1 


s 


,0S_DIA8 ! 
- Doctor, diet 


TYPE 
ician 


20 VARIABLE 


! 145 1 


& 


,0T LFIB ! 
- Yes 


TYPE 


20 VARIABLE 


! 146 1 


& 


,DS_LFIB ! 
- Doctor, diet 


TYPE 
ician 


20 VARIABLE 


! 147 1 


& 


,DT HFIB 1 
- Yes 


TYPE 


20 VARIABLE 


! 148 1 


& 


,OS_HFIB 1 
- Doctor, diet 


TYPE 
ician 


20 VARIABLE 


! 149 1 


& 


,DT OTHER 1 
- Yes 


TYPE 


20 VARIABLE 


! 150 1 


& 


,DS_OTHER 1 
- Doctor, diet 


TYPE 
ician 


20 VARIABLE 


I 151 1 


& 


.VEGET ! 
- Yes 


TYPE 


20 VARIABLE 


1 152 1 


& 


,R WGT ! 


TYPE 


20 VARIABLE 




& 


,R HGT ! 


TYPE 


20 VARIABLE 




& 


,BMI 1 


TYPE 


20 VARIABLE 




& 


.LEISURE ! 


TYPE 


20 VARIABLE 


! 207 1 


& 


- Heavy / rigorous 
,ACTIVE_L ! TYPE 


20 VARIABLE 


■ 208 1 




- More active 








& 


,D1_NNTH ! 


TYPE 


20 VARIABLE 


1 265-266 2 


& 


1 - January 

,D1 DATE 1 
1 - 31 " 


TYPE 


20 VARIABLE 


1 267-268 2 


& 


,01 YEAR ! 
? - 1989 


TYPE 


20 VARIABLE 


! 269 1 


& 


,D1_DAY 1 


TYPE 20 VARIABLE 


! 270 1 


s 


1 - Sunday 

,D1 NREC 1 


TYPE 


20 VARIABLE 




& 


.orFEW ! 


TYPE 


20 VARIABLE 


1 273 1 




5 - UC no food 


or beverage 




& 


,D1_AMTUS 1 


TYPE 


20 VARIABLE 


281 1 


1 


- Lesa'than usual 






& 


,D1 RESUS 1 
1 - Sick or ill 


TYPE 


20 VARIABLE 


i 282 1 


& 


.02_t«ITH 1 


TYPE 20 VARIABLE 


1 28S-286 2 


& 


1 - January 

,D2 DATE ! 
1 - 31 " 


TYPE 


20 VARIABLE 


! 287-288 2 


& 


,02 YEAR ! 
? - 1989 


TYPE 


20 VARIABLE 


! 289 1 


& 


,D2_DAY 1 


TYPE 


20 VARIABLE 


! 290 1 


& 


1 - Sunday 

,02 NREC 1 


TYPE 


20 VARIABLE 




& 


,02_FEW 


TYPE 20 VARIABLE 


! 293 1 



Are you wi a calorie/weight toss diet? 

Source of calorie/weight loss diet. 

Are you on a low fat/cholesterol diet? 

Source of low fat/cholesterol diet. 

Are you on a low salt diet? 

Source of low salt diet. 

Are you on a low sugar/sugar free diet? 

Source of low siqar/sugar free diet. 

Are you on a diabetic diet? 

Source of diabetic diet. 

Are you on a low fiber diet? 

Source of low fiber diet. 

Are you on a hi#« fiber diet? 

Source of high fiber diet. 

Are you on some other type of diet? 

Source of other dier. 

Do you cwisider yourself to be a vegetarian? 

Wiat H«ild ynj say your usual level of 

Conparad with most people your age and sex. 

Date of intake: month. 

Date of intake: day of the month. 

Date of intake: year. 

Date of intake: day of the week. 

Explanation for few or no food records. 
Uould you say that the amount of food and drink 
Uhat best describes th* reason for the 



Date of 


intake: 


month. 


Date of 


intake: 


day of the month. 


Date of 


intake: 


year. 


Date of 


intake: 


day of the week. 



Explanation for few or no food records. 



3 - III, no food or beverage 
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,02_AMTUS ! TYPE 20 VARIABLE ! 
1 - Less than usual 

,D2 RESUS ! TYPE 20 VARIABLE ! 
1 - Sick or ill 

,D3_MNTH ! TYPE 20 VARIABLE ! 
1 - January 

,D3 DATE ! TYPE 20 VARIABLE ! 
1 - 31 " 

,03 YEAR ! TYPE 20 VARIABLE 1 
9 - 1989 

,D3_DAY ! TYPE 20 VARIABLE f 
1 - Sunday 

,03 NREC ! TYPE 20 VARIABLE 

,03" FEU ! TYPE 20 VARIABLE ! 
3 - III, no food or beverage 

,D3_A*4TUS ! TYPE 20 VARIABLE ! 
1 - Less than usual 

,03 RESUS ! TYPE 20 VARIABLE > 
1 - Sick or ill 

,UGT 3DAY ! TYPE 20 VARIABLE ! 
C--- TYPE 50 

& ,RT_50 ! TYPE 50 VARIABLE ( 
50 - AU records 

,YEAR 50 ! TYPE 50 VARIABLE ! 
1 - 1989 ~ 

,SAHPLE_50 ! TYPE 50 VARIABLE ! 
1 - Basic 

,HHID 50 ! TYPE 50 VARIABLE ! 

,R_NUM 50 I. TYPE 50 VARIABLE ! 

,RACE_50 ! TYPE 50 VARIABLE ! 

Uhite" 



& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 

& 

breads, 
& 

& 



,F1A 

97 

,F1B 

97 

,F1C 
- 97 

,F1D 
- 97 

,F1E 
- 97 

,F4A 



! TYPE 50 VARIABLE ! 

! TYPE 50 VARIABLE 

! TYPE 50 VARIABLE 

! TYPE 50 VARIABLE 

! TYPE 50 VARIABLE 



! TYPE 50 VARIABLE 

- Not iinportant at all 
,F4B • TYPE 50 VARIABLE 

- Not important at all 

,F4C1 I TYPE 50 VARIABLE I 

- Not important at all 

,F4C2 I TYPE 50 VARIABLE t 

- Not important at alt 

,F4C3 ! TYPE 50 VARIABLE I 

- Not important at all 

,F4D I TYPE 50 VARIABLE I 

- Not important at all 

,F4E1 ! TYPE 50 VARIABLE 1 

- Not important at all 

,F4E2 I TYPE 50 VARIABLE I 

- Not important at all 

,F4f ! TYPE 50 VARIABLE 

- Hot important at all 
,F4G ! TYPE 50 VARIABLE 

- Not important at all 
,F4H ! TYPE 50 VARIABLE 

- Not important at all 
,F4I ! TYPE 50 VARIABLE 

- Not important at all 
,F4J ! TYPE 50 VARIABLE 

- Not important at all 
,F4K f TYPE 50 VARIABLE 

- Not important at all 

,F4L ! TYPE 50 VARIABLE 
1 - Not important at all 
,F4M • TYPE 50 VARIABLE ! 

- Not important at all 

,F4N I TYPE 50 VARIABLE ! 

- Not important at all 



301 
302 
306-307 
308-309 

310 
311 

314 

322 

323 

578-580 

1-2 
3 
4 

5-9 

10-11 
66 

153-154 

155-156 

157-158 

159-160 

161-162 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

! 209 

210 

211 



1 Would you say that the amount of food and drink 

1 What best describes the reason for the 

2 Date of intake: month. 

2 Date of intake: day of the month. 

1 Date of intake: year. 

1 Date of intake: day of the week. 

1 Explanation for feu or no food records. 

1 Would you say that the amount of food and drink 

1 What best describes the reason for the 
3 

2 Record type. 

1 Year of survey. 

1 Sample. 

5 Household identification ninber. 

2 Line r»jit>er of DHKS respondent. 

1 Race. 

2 1989: Blank, not asked. 
2 1989: Blank, not asked. 
2 1989: Blank, not asked. 
2 1989: Blank, not asked. 
2 1989: Blank, not asked. 

1989-90: Avoid too much salt or sodium. 

1989-90: Avoid too much saturated fat. 

1989-90: Eat at least five servings a day of 

1989-90: Blank, not asked. 

1989-90: Blank, not asked. 

1989-90: Avoid too much sugar. 

1989: Drink alcoholic beverages in 

1989: Blank, not asked. 

1989-90: Eat foods with adequate fiber. 

1989-90: Eat foods with adequate starch. 

1989-91: Eat a variety of foods, 

1989-90: Maintain a desirable weight. 

1989-90: Avoid too much fat. 

1989-90: Avoid too much cholesterol. 
1 1989-90: Eat at least six servings a day of 

1989-90: Blank, not asked. 

1989: Blank, not asked. 
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& .F40 f TYPE 50 VARIABLE ! 212 1 1989-90: Blank, not asked. 
1 - Not important at all 
IN CNT = IN CNT + 1 
TYPE 20 CNT"= type 20 CNT + 1 



IF(KFREQ .GT. 0) WRITE(8,1105) TYPE 20 CNT 
1105 FORMATC TYPE_20_CNT =' , 18) 



01_FIRST = 
01 LAST = 
02~FIRST = 
D2~LAST = 
D3~FIRST = 
OS^LAST = 

NUM 30 = 01_MREC + D2_MREC + D3_MREC 
IFCNUH 30 .EQ. 0) THEN 

NUM^ZERO 30 = NW4_ZER0 30 + 1 
IFCNIW zIrO 30 .LE. STtHEN 

WRITE(PRFILE,*) ' FOUMO A ZERO FOOD REC PERSOK ' 

KFREQ = 1 
END IF 
GO TO 300 
END IF 

IF(tCFREO .GT. 0) W«ITE(PRFILE,1130) MIM 30 
1130 FORMATC NUM 30 =',I4} 





IF{D1_NREC .NE. 0) THEN 






D1 FIRST = 1 






DI'lAST = D1 NREC 




END 


if" 




IF(D2_»R£C .NE. 0) THEN 






02 FIRST = 01 NREC ♦ 1 






02~LAST = 01 NREC * D2_NREC 




END 


IF 




IFCD3_NREC .NE. 0) THEN 






03 FIRST = D1 NREC + 02 NREC + 1 






D3~LAST = orNREC ♦ D2InREC + 03_NREC 


P- • • 


END 


IF 

OPAn TYDP Xn lUFnftMATirttl 


L-- 


00 


KCKU lire -#u iBrunnfti lun 
J = I.NUM 30 


C 




IF<KFREQ".GT. 0) WRITE(PRFILE,1U0) J 


C1U0 


FORMATC TYPE 30: J = ',13) 






READ{9,EN0=900) 






RT 30(J) 






,YEAR 30(J) 






.SAMPLE 30{J) 






,HHID 30(J) 






,R NUM 30(J) 






,DAYC0OE<J) 






,SEQMUM(J) 






,LiNENUM(J) 






,FO00C00E(J) 






,FOOOAMT<J) 






.D DAY(J) 






,Ha«ST<J) 






,FAT OCC(J) 






,FAT FOaO(J) 






,fat"type(J) 






.SALT USE(J) 






,CALEQ{J) 
IN CNT = IN CNT ♦ 1 
TYPE 30 CNT = TYPE 30 CNT + 1 




END 00 






REA0(9,END'>900) 






RT 40 






,YEAR 40 






.SAMPLE 40 






.HHID 40 






,R mm 40 






.RACE 40 






.DAYCODE 40 
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& 


,BHILK 






& 


,RDA1 






& 


,R0A2 






& 


,RDA3 






& 


,RDA4 






& 


,RDA5 






& 


,RDA6 






& 


,RDA7 






& 


,RDAS 






s 


,RDA9 






& 


,RDA10 






& 


,RDA11 






& 


,RDA12 






& 


.RDA13 






£ 


,RDAK 






L 


,RDA15 






& 


,RDA16 






S 


,RDA17 






& 


.TOTNUTI 






& 


, T0TNUT2 






& 


,T0TNUT3 






S 


,T0TNUT4 






& 


,T0TNUT5 






& 


, T0TNUT6 






& 


, TOTNUT? 






& 


, T0TNUT8 






& 


, T0TNUT9 






1, 


.TOTNUTIO 






& 


, TOTNUTI 1 






& 


,T0TNUT29 






'N_ 


CNT = IN CNT + 1 




300 


CONTINUE 






RETURN 






900 


CONTINUE 




c*** 






ft** 


c 


EOF 






c**« 




*«««•*»*•«******»**** 


»*• 




KEOF = 


3 






WRITE(PRFILE,9010) IN CNT 






& 


,TYPE 20 CNT 






& 


,TVPE~30 CNT 






& 


,NUM ZERO 30 




9010 


FORMATC// 






& 


,/," IN_CNT = ",I6 






& 


,/," TYPE 20 CNT 


= ",16 




& 


,/," TYPE 30 CNT 


= ",I6 




& 


,/," NUM ZERO 30 


= ",16 




& 


) 






RETURN 








END 







SUBROUTINE PRINT PERSON 

(;.*.••.•**••*•••*••*••*•*«••*•••••••**••« 

C ■- READ IN A PERSON'S DATA 

(;••••*••*****•*•*•••«•••••*•*••*«•••••**< 

INTEGER** J 
CHARACTER*! FF /Z'OC'/ 

INCLUDE 'WORKCSF.INC 

(;••**....•*•*•••.••**•.•.**.*•••*•••*•*• 

C PRINT A PERSON RECORD (TYPE 20) 

C AND THEN ALL TYPE 30'S FOR 

C THAT PERSON 

^*******«**************************«**** 



URITE(PRFILE,1120) 
C--- TYPE 15 

& RT 15 ( TYPE 15 VARIABLE 
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.YEAR 15 ! 


TYPE 15 VARIABLE 








.SAMPLE 15 ! 


TYPE 15 VARIABLE 








,HHIO 15 ! 


TYPE 15 VARIABLE 








,M LGRADE ! 


TYPE 15 VARIABLE 








,F~L GRADE ! 


TYPE 15 VARIABLE 








.FOOOSEC ! 


TYPE 15 VARIABLE 








.SURPLUS 1 


TYPE IS VARIABLE 






C--- TYPE 


20 










,RT 20 • 


TYPE 15-20 VARIABLE 








.YEAR 20 ! 


TYPE 15-20 VARIABLE 








.SAMPLE 20 I 


TYPE 15-20 VARIABLE 








,HHID 20 ! 


TYPE 15-20 VARIABLE 








,R NUM 20 ! 


TYPE 20 VARIABLE 








.GEOG ! 


TYPE 20 VARIABLE 








,URB t 


TYPE 20 VARIABLE 








.HHSZ ! 


TYPE 20 VARIABLE 








.INCOME ! 


TYPE 20 VARIABLE 








.PCTPOV 1 


TYPE 20 VARIABLE 








.H RCVFS ! 


TYPE 20 VARIABLE 








.Oi?ICMH • 


TYPE 20 VARIABLE 








.CHILDREN I 


TYPE 20 VARIABLE 








.HEAOSTAT 1 


TYPE 20 VARIABLE 








.R RCVFS ! 


TYPE 20 VARIABLE 








,AGE ! 


TYPE 20 VARIABLE 








,SEX ! 


TYPE 20 VARIABLE 








,PL STAT ! 


TYPE 20 VARIABLE 








.RACE 20 ! 


TYPE 20 VARIABLE 








.c«ig7n ! 


TYPE 20 VARIABLE 








.NUMOAYS I 


TYPE 20 VARIABLE 








.R WIC I 


TYPE 20 VARIABLE 








,R EW> 1 


TYPE 20 VARIABLE 








.R LGRADE ! 


TYPE 20 VARIABLE 








.R CMTL 1 


TYPE 20 VARIABLE 








.R"FREEL ! 


TYPE 20 VARIABLE 








,HLTI«)IET ! 


TYPE 20 VARIABLE 








.SPECOIET ! 


TYPE 20 VARIABLE 








,DT CALOft ! 
- Yes 


TYPE 20 VARIABLE 1 


136 






.DS_CALOR 1 
- Doctor, diet 


TYPE 20 VARIABLE ! 
ician 


137 




1 


,DT FAT I 
- Yes" 


TYPE 20 VARIABLE ! 


138 






,DS_FAT ! 
- Doctor, diet 


TYPE 20 VARIABLE ! 
ician 


139 






,DT SALT ! 
- Yes 


TYPE 20 VARIABLE 1 


140 






.DS_SALT ! 
- Doctor, diet 


TYPE 20 VARIABLE 1 
ician 


141 






.DT SUGAR ! 

- Yes 


TYPE 20 VARIABLE 1 


142 






.DS_SUGAR ! 
- Doctor, diet 


TYPE 20 VARIABLE I 
ician 


143 






.DT DIAB 1 
1 - Yes 


TYPE 20 VARIABLE 1 


144 






,DS_DIAB 1 


TYPE 20 VARIABLE 1 


145 






1 - Doctor, dietician 






1 


.DT LFI8 1 
- Yes 


TYPE 20 VAitlABLE 1 


146 






,DS_LF1B 1 
- Doctor, diet 


TYPE 20 VARIABLE \ 
iclMt 


147 






,0T HFIB ! 
- Yes 


TYPE 20 VARIABLE I 


148 






.OS_HF!B f 


TYPE 20 VARIABLE 1 


149 






- Doctor, dietician 








,DT OTHER ! 
- Yes 


TYPE 20 VARIABLE 1 


150 






.DS_OTHER 1 
1 - Doctor, diet 


TYPE 20 VARIABLE ! 
ician 


151 






.VEGET ! 
1 - Yes 


TYPE 20 VARIABLE ! 


152 






,R WGT I 


TYPE 20 VARIABLE 








,R HGT ! 


jm 20 VARIABLE 








.8M1 ! 


TYPE 20 VARIABLE 








.LEISURE ! 


TYPE 20 VARIABLE ! 


207 


1 




1 - Heavy / rigorous 







Are you on a calorie/weight loss diet? 

Source of calorie/weight loss diet. 

Are you on a low fat/cholesterol diet? 

Source of low fat/cholesterol diet. 

Are you on a tow salt diet? 

Source of low salt diet. 

Are you on a low sugar/sugar free diet? 

Source of low sugar/sugar free diet. 

Are you on a diabetic diet? 

Source of diabetic diet. 

Are you on a low fiber diet? 

Source of low fiber diet. 

Are you on a hi^ fiber diet? 

Source of high fiber diet. 

Are you on some other type of diet? 

Source of other diet. 

Do you consider yourself to be a vegetarian? 



207 1 What would you say your usual level of 
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& 

& 

& 

& 

& 

& 
& 

& 

& 
& 
& 

& 
& 

& 

& 

& 
& 
& 

& 
& 
& 



,ACTIVE_L ! TYPE 20 VARIABLE 
1 - More active 

,D1_MNTH I TYPE 20 VARIABLE 
1 - January 

,D1 DATE 
1 - 31 ~ 

,D1 YEAR 
9 - 1989 

,01_DAY 
1 - Sunday 

,D1_NREC 

,01 FEW 



! TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 



! TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 
3 - III, no food or beverage 

,D1_AMTUS ! TYPE 20 VARIABLE 
1 - Less than usual 

,01_RESUS ! TYPE 20 VARIABLE 
1 - Sicic or ill 

,D2_MMTH ! TYPE 20 VARIABLE 
1 - January 

,D2 DATE 
1 - 31 ~ 

,D2 YEAR 
9 - 1989 

,D2_DAY 
1 - Sunday 

,02_NREC 

,02_FEU 



! TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 



• TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 



! TYPE 20 VARIABLE 
! TYPE 20 VARIABLE 
3 - III, no food or beverage 

,D2_AMTUS ! TYPE 20 VARIABLE 
1 - Less than usual 

,02 RESUS I TYPE 20 VARIABLE 
1 - Sick or ill 

,D3_«NTH I. TYPE 20 VARIABLE 
1 - January 
,D3 DATE 
1 - 31 ~ 

,D3 YEAR 
9 - 1989 

,D3_0AY 
1 - Sunday 
& ,03 NREC I TYPE 20 VARIABLE 
& ,D3~FEW ! TYPE 20 VARIABLE 

3 - I U , no food or beverage 
& ,03_A»(TUS ! TYPE 20 VARIABLE 

1 - Less than usual 
& ,03 RESUS I TYPE 20 VARIABLE 

1 - Sicic or ill 
& ,WGT 30AY I TYPE 20 VARIABLE 
C--- TYPE 50 

& ,RT_50 ! TYPE 50 VARIABLE 

50 - AU records 
& ,YEAR 50 I TYPE 50 VARIABLE 

1 - 1989 ~ 
& ,SAJ1PLE_50 I TYPE 50 VARIABLE 

1 - Basic 
& ,HHIO 50 I TYPE 50 VARIABLE 
& ,R NUM_50 I TYPE 50 VARIABLE 
& ,RACE 50 I TYPE 50 VARIABLE 
White" 



! TYPE 50 VARIABLE 

! TYPE 50 VARIABLE 

! TYPE 50 VARIABLE 

! TYPE 50 VARIABLE 

! TYPE 50 VARIABLE 



,F1A 

97 

,F1B 

97 

,MC 

97 

,F10 

97 

,F1E 

- 97 

,F4A ! TYPE 50 VARIABLE 

1 - Not important at all 

,F4B ! TYPE 50 VARIABLE 
1 - Not iirportant at all 

,F4C1 ! TYPE 50 VARIABLE 
1 - Not irrportant at all 



208 

265-266 

267-268 

269 

270 

273 
281 
282 
285-286 
287-288 
289 
290 

293 

301 
302 
306-307 
308-309 

310 
311 

3U 

322 

323 

578-580 

1-2 

3 

4 

5-9 
10-11 
66 

153-154 

155-156 

157-158 

159-160 

161-162 

195 

196 

197 



1 Compared with most people your age and sex, 

2 Date of intake: month. 

2 Date of intake: day of the month. 

1 Date of intake: year. 

1 Date of intake: day of the week. 

1 Explanation for few or no food records. 

1 Would you say that the amount of food and drink 

1 What best describes the reason for the 

2 Date of intake: month. 

2 Date of intake: day of the month. 

1 Date of intake: year. 

1 Date of intake: day of the week. 

1 Explanation for few or no food records. 

1 Would you say that the amount of food and drink 

1 What best describes the reason for the 

2 Date of intake: month. 

2 Date of intake: day of the month. 

1 Date of intake: year. 

1 Date of intake: day of the week. 

1 Explanation for few or no food records. 

1 Would you say that the amount of food and drink 

1 What best describes the reason for the 
3 

2 Record type. 

1 Year of survey. 

1 Sample. 

5 Household identification number. 

2 Line nunber of OHKS respondent. 

1 Race. 

2 1989: Blank, not asked. 
2 1989: Blank, not asked. 
2 1989: Blank, not asked. 
2 1989: Blank, not asked. 
2 1989: Blank, not asked. 

1 1989-90: Avoid too much salt or sodiun. 

1 1989-90: Avoid too much saturated fat. 

1 1989-90: Eat at least five servings a day of 
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s 
& 
& 
& 
& 
i 
& 
& 
& 

breads, 
& 

& 



1120 



& 
& 
& 
& 

& 
& 
& 
& 
& 
& 
& 
& 
& 
S 
& 
& 

s 
s 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
& 
s 
& 
& 
t 
& 
& 
& 
& 
& 

5 
S 
S 

i. 



.FACZ ! TYPE 50 VARIABLE 

- Not itiportant at all 

,F4C3 ! TYPE 50 VARIABLE 

- Not infiortant at all 

,F40 ! TYPE 50 VARIABLE 

- Not important at all 

,F4E1 ! TYPE 50 VARIABLE 

- Not important at all 

,F4E2 ! TYPE 50 VARIABLE 

- Not important at all 

,F4F ! TYPE 50 VARIABLE 

- Not important at all 

,F4G ! TYPE 50 VARIABLE 
• Not important at all 

,F4H ! TYPE 50 VARIABLE 

- Not important at all 

.F4I I TYPE 50 VARIABLE 

- Not important at all 

,F4J ! TYPE 50 VARIABLE 

- Not important at all 

,F4K ! TYPE 50 VARIABLE 

- Not important at all 

,F4L ! TYPE 50 VARIABLE 
1 - Not important at all 
,F4H ! TYPE 50 VARIABLE 

- Not important at all 

,F4N ! TYPE 50 VARIABLE 

- Not important at all 

,F40 ! TYPE 50 VARIABLE 

- Not important at all 
FORMAT ( 

//'---TYPE 15 INFOMATION---' 
./ 



./ 



,/ 



,/ 



,/ 



./ 



,/ 



,/ 



RT 15 


= ',A8 


YEAR 15 


= '.!8 


SAMPLE 15=', 18 


HHID 15 


=' 18 


M LGRADE 


=' 18 


F~LGRADE 


= ' , 18 


FOOOSEC 


=' 18 


SURPLUS 


=' , 18 


■--TYPE 20 INFOMATION- 


RT 20 


=',A8 


YEAR 20 


=',I8 


SAMPLE 20= ',18 


HHID 20 


=',18 


R NUM 20 


=',18 


GEOG ~ 




URB 




HHSZ 




INCOME 




PCTPOV 




H RCVFS 




DHKHH 




CHILDREN 




HEADSTAT 




R RCVFS 




AGE 




SEX 




PL STAT 




RACE 20 




origTn 




NUMDAYS 




R WIC 




R~EMP 




r'lgiuoe 




R CNTL 




R~FREEL 




HLTHOIET 




SPECOIET 




DT CALOR 




OS CALOR 


= ' 1 '8 


DT~FAT 


=' , 18 


DS FAT 


-' 1 18 


OT SALT 


= ' 18 


DS SALT 


=' 18 


OT SUGAR 


=' 18 



198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 

209 
210 
211 
212 



1989-90: Blank, not asked. 
1989-90: Blank, not asked. 
1989-90: Avoid too much sugar. 
1989: Drink alcoholic beverages in 
1989: Blank, not asked. 
1989-90: Eat foods with adequate fiber. 
1989-90: Eat foods with adequate starch. 
1989-91: Eat a variety of foods. 
1989-90: Maintain a desirable weight. 
1989-90: Avoid too much fat. 
1989-90: Avoid too much cholesterol. 
1 1989-90: Eat at least six servings a day of 
1989-90: Blwik, not asked. 
1989: Blank, not asked. 
1989-90: Blank, not asked. 
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& 




' OS SUGAR 


= 


,18 


& 




' OT~DIAB 


= 


,18 


& 




' OS DIAB 


= 


.18 


& 


,/ 


,' DT LFIB 


= 


',18 


& 




,' OS LFIB 


= 


,18 


& 




, ' OT~HFIB 


= 


,18 


& 




' DS~HFIB 


= 


.18 


& 




, ' DT~OTHER 


= 


,18 


& 




' DS~OTHER 


s 


,18 


& 




' VEGET 


= 


,18 


& 


,/ 


' R WGT 


= 


,18 


& 




' R HGT 


s 


,18 


& 




' BMI 


= 


,F8.2 


& 




' LEISURE 


= 


,18 


& 




' ACTIVE L 


3! 


,18 


& 


,/ 


' 01 MNTH 


= 


,18 


& 




' 01 DATE 


= 


,18 


& 




' 01 YEAR 


r 


,18 


& 




' orOAY 


s 


,18 


& 


./ 


' orNREC 


s 


.18 


& 




' orFEU 


s 


,18 


& 




' 01 AMTUS 


= 


,18 


& 




' dTresus 


r 


,18 


& 


,/ 


' 02~MNTH 


= 


.18 


& 




' 02"dATE 


s 


,18 


& 




' 02 YEAR 


= 


,18 


& 




' 02 DAY 


= 


.18 


& 


,/ 


' D2~NREC 


s 


,18 


& 




' D2 FEW 


X 


.18 


& 




' D2~AMTUS 


= 


,18 


& 




' 02 RESUS 


= 


,18 


& 


,/ 


' 03"mNTH 


= 


,18 


& 




' D3 DATE 


= 


,18 


& 




' 03 YEAR 


= 


,18 


& 




' 03 OAY 


= 


,18 


& 


,/ 


' 03 NREC 


= 


,18 


& 




' 03~FEW 


= 


.18 


& 




' 03 AMTUS 


= 


,18 


& 




' 03 RESUS 


= 


,18 


& 


,/ 


' WGT 3DAY 


= 


,18 


& 


.11 


'---TYPE 50 


NFOMATION--- 


& 


.1 


' RT 50 


= 


,A6 


& 




' YEAR 50 


= 


,18 


& 




' SAHPLE 50« 


,18 


& 




' HHID 50 


= 


,18 


8, 




' R NUM 50 


= 


,18 


& 




' RACE 50 


= 


,18 


i 


J 


' F1A " 


= 


,18 


& 




' FIB 


= 


,18 


& 




' F1C 


= 


,18 


& 




' FID 


=; 


,18 


& 




' FIE 


= 


,18 


& 


.1 


' F4A 


= 


,18 


& 




' F4B 


s 


,18 


& 




' F4C1 


= 


,18 


& 




' F4C2 


s 


,18 


& 




' F4C3 


= 


,18 


& 


.1 


' F40 


3 


.18 


£ 




' F4E1 


3 


,18 


& 




' F4E2 


3 


.18 


& 




' F4F 


3 


.18 


& 




' F4G 


= 


.18 


& 


J 


* F4H 


S 


.18 


& 




' F4I 


= 


,18 


& 




' F4J 


= 


,18 


& 




' F4K 


= 


,18 


& 




' F4L 


= 


,18 


& 


J 


' F4M 


= 


,18 


& 




' F4N 


= 


,18 


& 




' F40 


= 


,18 


& 


) 

WRITECPR 


=ILE,2220) 






& 


RT i 


.0 






& 


.YEW 


( 40 






& 


,SAMI 


»LE 40 
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,HH1D 40 








,R NUM 40 








RACE 40 








,dayc6de 40 








BMILK 








,RDA1 








RDA2 








,RDA3 








RDA4 








RDA5 








RDA6 








RDA7 








R0A8 








RDA9 








R0A10 








RDA11 








RDA12 








R0A13 








RDA14 








R0A15 








RDA16 








RDA17 








T0TNUT1 








T0TNUT2 








T0TMUT3 








T0THUT4 








T0TNUT5 








T0TNUT6 








T0TNUT7 








T0TNUT8 








T0TMUT9 








TOTMUT10 








T0TNUT11 








T0TIWT29 






2220 FORW 


kT( 






& / 


'---TYPE 40 


INFOMATION---' 


s ,/ 


' RT 40 


= ' 


.A8 




' YEAR 40 


= ' 


.18 




' SAMPLE 40 


a' 


.18 


4 ,/ 


' HHID 40 


= ' 


,18 




' R NUM 40 


s' 


.18 




' RACE 40 


= ' 


.18 




' DAYCOOE 40=' 


.18 




' BMILK 


= ' 


,18 


& ./ 


' RDAI 


3' 


,F8.2 




' R0A2 


s' 


,F8.2 




' R0A3 


= < 


,F8.2 




' R0A4 


a' 


,F8.2 




' R0A5 


= ' 


,F8.2 


& ,/ 


' RDA6 


s' 


.F8.2 




' R0A7 


s' 


,F8.2 




' R0A8 


s* 


,F8.2 




' RDA9 


= ' 


,F8.2 




' ROA10 


= ' 


,F8.2 


* ,/ 


' RDA11 


= ' 


,F8.2 




' RDA12 


= ' 


,F8.2 




' RDA13 


= ' 


,F8.2 




,' RDAI 4 


■ ' 


.F8.2 




,' R0A15 


■ ' 


,F8.Z 




' RDA16 


»* 


.F8.2 




' RDAI 7 


ml 


.F8.2 


* ,/ 


' T0TNUT1 


s' 


,F8.2 




' T0TNUT2 


a' 


.F8.2 




' TOTMUTS 


3' 


,F8.2 




' T0TIWT4 


3' 


.F8.2 




' TOTHUTS 


=' 


,F8.2 


t ./ 


' T0THUT6 


3' 


,F8.2 




' T0TMUT7 


s' 


,F8.2 




, ' T0TMUT8 


s' 


,F8.2 




, ' T0TNUT9 


s' 


.F8.2 




,' TOTMUT10 


s' 


,F8.2 


& ,/ 


,' T0TMUT11 


3' 


.F8.2 




, ' T0TMUT29 


= ' 


,F8.2 


a ) 








c 

C DAY 1 FOOD 


ITEMS 
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\^ 


IF<D1 NREC . 


EO. 0) THEN 




GO TO 200 






END IF 






rF<KFREQ -GT 


. 5) WRITE(PRFILE,1130) 01 FIRST.DI LAST 


1130 

r - - - . ~ 


FORMAT(/,' DAY 1: D1_FIRST = ',13/ D1_LAST = ',13) 

,. -DDIUT TVDC Tt\ lUcnOUATinU - -- 


u ■ - - ■ - - 


---■rRlNT TTPt jU iNrUKMATlON ■ 




WRITE(PRFILE 


,1210) 


1210 


FORMAT ( 




& 


/,' 


REC NUM' 


& 




DAYCOOE' 


& 




SEQNUM' 


S 




LINENUN' 


& 




FOODCCOE' 


& 




FfXlOAMT ' 


& 




D DAY' 


& 




HOWEST' 


& 




FAT OCC 


& 




FAT FOOD' 


& 




FAT~TYPE' 


& 




SALT USE' 


& 




CALEQ' 





DO J = 01 FIRST, D1 LAST 




WRITE(PRFILE,1220) 


& 


J 


& 


,DAYCOOE(J) 




,SEQNUM<J) 




,LINENLM(J) 




,FOCOCOOE(J) 




,FOODAMT(J) 




,0 DAY(J) 




.HOUESTCJ) 




,FAT OCC(J) 




.FAT FOOO(J) 




,FAT~TYPE(J) 




.SALT USE(J) 




,CALEQ(J) 


1220 


FORMAT ( 




no 




,110 




,110 




,110 




.110 




,F10.2 




.110 




.110 




,110 




,110 




,110 




,110 




.F10.2 


& 


) 




END DO 


200 CONTINUE 

p_,,___, 


C DAY 2 


FOOD ITEMS 


c 


IF(02 NREC .EO. 0} THEN 




GO TO 300 




ENO IF 




IFCKFREO .GT. 5) WRITE(PRFILE,2110> 02 FIRST, 02 LAST 


2110 


FORMATC/,' DAY 2: 02 FIRST = ',13,' D2 LAST = ~, 13) 




WRITE(PRFILE,1210) 




DO J = 02 FIRST, D2 LAST 




WRITE(PRFILE,1220) 


s 


J 


& 


,DAYCOOE(J) 


& 


,SEQNUH(J) 


& 


.LINENLM(J) 


& 


,FOOOCOOE(J) 


& 


,FOOOAMT<J) 


& 


,0 DAYCJ) 


& 


,HOUEST<J) 


& 


.FAT OCC(J) 



3S 
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& 
& 

& 
& 



END DO 



,FAT FOOD(J) 
,FAT TYPE(J) 
,SALT USE(J) 
,CALEa(J} 



300 CONTINUE 

C 

C DAY 3 FOOD ITEMS 

C 



IF<D3 NREC .EQ. 0} THEN 
GO~TO 400 

END IF 

IF(KFREO .GT. 5) WRITECPRFILE.SIIO) 03 FIRST, 03 LAST 
3110 FORMAT</,' DAY 3: D3 FIRST = ',13,' 03 LAST = ",I3) 

WRITE(PRFILE,1210) ! the header line 

DO J = D3_FIRST,03 LAST 
WRITE(PRFILE,1220) 
& J 

& ,DAYCODE(J) 

& ,SEQNUM(J} 

& ,LINENUM(J) 

& ,FO0OCO0E(J} 

& ,FOCDAMT(J) 

& ,0 DAY(J) 

& ,HOUEST(J) 

& ,FAT OCC(J) 

& ,FAT~FOOO(J) 

& .FAT TYPE(J) 

& ,SALT USE(J} 

& ,CALEQ(J} 

END DO 
WRITE(PRF1LE,*) FF 

400 CCWTINUE 
RETURN 
END 



I PERFORM A PAGE EJECT 



SUBROUTINE CREATE_INDEX 

C--- EXTRACT A PERSOI'S DATA 

INPIICIT NONE 

REAL»4 PSI 

REAL*4 PS2 

REAL*4 PS3 

REAL*4 PS4 

REAL*4 PS5 

REAL*4 LEOJHE 

REAL*4 SCALE 1 

REAL*4 SCALE2 

REAL*4 SCALES 

REAL*4 SCALE4 

REAL*4 SCALES 

REAL*4 SCALE6 

REAL*4 NAXPOINT 

REAL*4 MIMPOINT 

REAL*4 FOOD PORTION 



REAL*4 CC1A 
REAL*4 CC1B 
REAL*4 CC2A 
REAL*4 CC2B 
REAL*4 CC2C 
REAL*4 CC3A 
REAL*4 CC3B 
REAL*4 CC4A 
REAL*4 CC5A 
REAL*4 CC5B 
REAL*4 CC5C 
REAL*4 CC6A 
REAL*4 CC68 

INTEGER*4 SPLIT FOOOCaDE{500> 
REAL*4 SPL1T"pO«TION<500) 
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INTEGER*4 AGG FOOOCOOE(500) 
REAL*4 AGG~PORTION(500) 
INTEGER*4 VARTeTY_CNT 

REAL*4 NUM DAYS 

L0GICAL*4 PROCESS_FOOOCOOE(500) 

INTEGER*4 I 
INTEGER*4 J 

integer*4 pick 

integer*4 i age 

integer*4 isex 

integer*4 invalid sex cmt/0/ 

integer*4 very old age cnt/0/ 

integer*4 leguhe_cnt/o7 

include 'workcsf.ihc 
include 'index. inc 
include 'f7_c00e.inc' 

ifckfreq .gt. 0) write(prfile,*) ' in create index ' 

c create new head's grade completed variable 

if(m_lgraoe .ne. 99 .and. m lgrade .ge. f_lgrade) then 

l grade 15 = m_lgrade 
else ifcf lgraoe .ne. 99 .and. f lgrade .gt. h lgrade) then 
lgrade 15 = f lgrade 

ELSE 

LGRADE 15 = 99 
END IF 

IFdCFREQ .GT. 0) WRITE(PRFILE,1010) LGRADE_15,M LGRADE, F LGRADE 
1010 FORMATC LGRADE_15 =',I4,' M_LGRADE =',I4,' F^LGRADE =~, 14) 

FGI = 0.0 
FG2 = 0.0 
FG3 = 0.0 
FG4 = 0.0 
FG5 = 0.0 
FG6 = 0.0 

AVG FGI = 0.0 
AVGIfG2 =0.0 
AVG_FG3 = 0.0 
AVG FG4 = 0.0 
AVG~FG5 =0.0 
AVG^LEGUME = 0.0 

H\M DAYS = 0.0 



C0MP01 
C0MP02 
COMP03 
C0MP04 
COMPOS 
COMP06 
C0MP07 
C0MP08 
C0MP09 
C0MP10 



0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 



SPLIT CNT = 

AGG CNT = 

HLWAN MILK = .FALSE. 



IF<AGE .GT. 
SCALE 1 = 
SCALE2 = 
SCALES = 
SCALE4 : 
SCALE5 = 
SCALE6 = 

ELSE 

SCALE1 ■■ 
SCALE2 ' 
SCALES = 



3) THEN I SCALE YOUNG KIDS PORTIONS UP 

1.0 

1.0 

1.0 



2.0 



4.9 
2.5 
1.5 
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SCALE* =1.0 
SCALES = 3.0 / 2.5 
SCALE6 = 3.0 / 2.5 
END IF 

IF<KFREQ .GT. 0) THEN 
WRITE(PRFILE,1020) 
& SCALE1 

& ,SCALE2 
& .SCALES 
& , SCALE4 
& .SCALES 
& .SCALE6 



1020 FORMAT ( 
& 
& 
& 
& 
& 
& 

& ) 
END IF 



NB meats need to be converted from oz to servings 



SCALE1 ='.F6.3 
SCALE2 ='.F6.3 
SCALE3 ='.F6.3 
SCALE4 =',F6.3 
SCALES =',F6.3 
SCALE6 =',F6.3 



IFCNUM 30 .EQ. 0) GO TO 900 I no food records 



- initialize the split-foodcode arrays 
DO I = 1,500 

SPLIT FOGOCODE(I) = 

SPLIT~PORTION(I) = 0.0 

AGC FOOOCOOEd) ^ 

ACC'PORTIONd) => 0.0 
END D0~ 



- set up a logical to tell us whether or not to process the record 
DO I ' I.NUN 30 

PROCESS FOOOCOOEd) = .FALSE. 
IF(OAYr.AND. DAYCOOEd) .EQ. 1) THEN 

PROCESS_F00OC0OEd) = .TRUE. 
END IF 
IF<DAY2 .AND. DAYCOOEd) .EO. 2) THEN 

PROCESS_F000C00Ed) = .TRUE. 
END IF 
IF(DAY3 .AND. DAYCOOEd) .EQ. 3) THEN 

PROCESS FOODCOOE<I) = .TRUE. 
END IF 
END DO 



c--- 


- count days that the person has data for the 


c--- 


- the days ue want to process 






IF(D1 NREC .CT. .A»B. DAY1) 


THEN 




mm DAYS » NUN DAYS ♦ 1 






END IF 






IF(D2 NREC .QT. .AND. DAY2) 


THEN 




NUM DAYS - HUM DAYS * 1 






END if" 






IF(D3 NREC .GT. .AND. DAY3} 


THEN 




NUH DAYS > NtJM DAYS * 1 






END if" 






IF(KFREQ .GT. 0) THEN 






WRITE(PRFILE,1030} NUNDAYS 






& ,01 HRiC 






& ,02 NREC 






& ,03~NREC 




1030 


FORNATC -- starting loop ovw foodcodes 




& ,' NUPDAYS >', 12 






& ,'01 NREC >', 12 






& ,' D2~NREC -', 12 






& ,' 03 NREC =', 12 
t > 





END IF 



DO I ' 1,HUM 30 

IF( .NOT. "process FOOOCOOEd)) CYCLE 
IF(FOOOCOOEd) .EQ. 1100000) THEN 

HUMAN.MILK ' .JKM. 

HUMAN MILK CNT = HUMAN MILK CNT * 
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GO TO 900 
END IF 



CALL BINARY SEARCH INT4(FOOOC0OE( I ),PICK, 1 

,MAX_COOES,KFREO) 
FOOOLABEL(I) = LABEL7(PICIC) 



1110 





ecu = 


VFC(PICK,01) 








CC1B = 


VFC(PICIC,02) 








CC2A = 


VFC(PICK,03> 








CC2B = 


VFC(PICK,OA) 








CC2C = 


VFC(PICIC,05) 








CC3A = 


VFC(PiCK,06) 








CC3B = 


VFC(PICIC,07) 








CC4A = 


VFC(PICK,08) 








CC5A = 


VFC(PICIC,09) 








CC5B = 


VFC(PICIC,10) 








CC5C = 


VFC(PICK,11) 








CC6A = 


VFC(PICIC,12) 








CC6B = 


VFC(PICK,13) 








PS1 = 


SERVINGS(PICK,1) * (FOOOAMT(I) / 100.0) * 


SCALE 1 


! GRAINS 




PS2 = 


SERVINGS(PICK,2) * (FOOOAMT(I) / 100.0) • 


SCALE2 


! VEGGIES 




PS3 = 


SERVINGS(PICK,3) • (FOCOAMT(I) / 100.0) * 


SCALE3 


! FRUIT 




PSA = 


SERVINGS(P1CK,4) • (FOOOAMT(I) / 100.0) * 


SCALE4 


! DAIRY 




PS5 = 


SERVlNGS(PlCK,5)/2.5 * <FOOOAMT(n/100.0) 


• SCALES 


! MEATS 




LEGUME 


= SERVINGS{PICK,6) • (FOOOAMTCI) / 100,0) 


* SCALE6 


! legumes 




F0O0_PORTION = PS1 ♦ PS2 + PS3 ♦ PS4 ♦ PS5 + LEGUME 






[F(KFREO .GT. 0) THEN 








WR1TE(PRF1LE,1110) P I CK , FOOOAMT ( I ) 






& 




, FOOOCODE( I ) , FOOOLABEK I ) 






& 




,PS1,SERVINGS{PICK,1) 






& 




,PS2,SERVINGS(PICK,2} 






& 




,PS3,SERVINGS(PICK,3) 






& 




,PS4,SERVINGS(PICIC,4) 






s 




,PS5,SERVINGSCPICK,5) 






& 




, LEGUME, SERVINGS(PICK, 6) 






& 




,FO0O PORTION 






& 




,ccia7ccib 






& 




,CC2A,CC2B,CC2C 






& 




,CC3A,CC3B 






& 




,CC4A 






& 




,CC5A,CC5B,CC5C 






& 




,CC6A.CC6B 








FORMAT ( 






& 




/ ' PICK = ',16 






& 




,' FOOOAMT = ',F7.2 






& 






' FOOOCOOE = ',17 






& 






': ',A40 






s 




/ 


' PSI = ',F6.2 






& 






' SERVINGS ' ',F6.2 






& 




/ 


' PS2 ' ',F6.2 






& 






' SERVINGS = ',F6.2 






& 




/ 


' PS3 = ',F6.2 






& 






' SERVINGS ' ',F6.2 






& 




/ 


' PS4 X ',F6.2 






& 






' SERVINGS = '.F6.2 






& 




/ 


' PS5 » ',F6.2 






& 






' SERVINGS > ',F6.2 






& 




/ 


' LEGUME = ',F6.2 






& 






' SERVINGS - ',F6.2 






& 




/ 


' FOOD PORTION » ',F6.2 






& 




/ 


' CC1A » ',18,' CC1B = ',18 






& 




/ 


' CC2A = ',18,' CC2B = ',18,' CC2C = 


MB 




& 




/ 


' CC3A = ',18,' CC3B = ',18 






& 




/ 


' CC4A = ',18 






& 




/ 


' CC5A = ',18,' CC5B = ',18,' CC5C = 


',18 




& 

& 




/ 


' CC6A = ',18,' CC6B = ',18 






END IF 


/ 








FG1 = 


FG1 ♦ PS1 








FG2 = 


FG2 + PS2 








FG3 = 


FG3 + PS3 








FG4 = 


FG4 + PS4 








FG5 = 


FG5 + PS5 4 9 








FG6 = 


FG6 


♦ LEGUME 
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C--- create an array of "split out" food types 
IFCFOOO PORTION .GT. 0.0) THEN 

IFCCCIA .GT. .AND. CC1B .GT. 0) THEN 
SPLIT CNT = SPLIT CNT + 
SPLIT~FOOOC0OE(SPLIT CNT 
SPLIT~PORTION(SPLIT CNT) 
SPLIT^CNT = SPLIT_CMT + 
SPLIT FO0OC0OE( SPLIT CNT 
SPLIT"pORTION(SPLIT CNT) 

ELSE IF(CC1A .GT. 0) THEN 

I I assune b can't be > i 
SPLIT CNT = SPLIT CNT + 
SPLIT~FOO0C0OE{SPLIT CNT 
SPLIT~PORTION(SPLIT CNT) 

END IF ~ 

IF(CC2A .GT. .AND. CC2B 
SPLIT CNT = SPLIT CNT ■•• 
SPLIT~F0C10C00E(SPLIT CNT 
SPLIT~PORTICIN<SPLIT CNT) 
SPLIT~CNT = SPLIT CNT + 
SPLIT~FOOOCOOE(SPLIT CNT 
SPLIT~PORTI0N(SPLIT CNT) 

ELSE IF<CC2A .GT. 0) THEN 

! I assume b can't be > i 
SPLIT CNT = SPLIT CNT + 
SPLItIfOOOCOOECSPLIT CNT 
SPLIT_PC«TION(SPLIT CNT) 

END IF 

IFCCC3A .GT. .AND. CC3B .GT. 0) THEN 
SPLIT CNT = SPLIT CNT + 
SPLIT~FO0OCCX)E<SPLIT CNT 
SPLIT PORTION<SPLIT CNT) 
SPLIT_CNT » SPLIT CNT + 
SPLIT FOOOCQOEC SPLIT CNT 
SPLIT~PORTICIN(SPLIT CNT) 

ELSE IF(CC3A .GT. 0} THEN 

! I assume b can't be > i 
SPLIT CNT = SPLIT CNT ♦ 
SPLIT~FOOOCOOE(SPLIT CNT 
SPLIT PORTION(SPLIT CNT) 

END IF ~ 

IF(CC4A .GT. 0) THEN f milk 
SPLIT CNT = SPLIT CNT + 
SPL I T~FOOOCOOE ( SPL I T_CNT 
SPLIT~P0RT10N(SPLIT CNT) 

END IF ~ 

IF(CC5A .GT. .AND. CC5B .GT. 0) THEN 
SPLIT CNT = SPLIT CNT * 
SPLIT~FOOOCOOE{SPLIT CNT 
SPLIT"p(»TIOtl{SPLIT_CNT) 
SPLIT CNT = SPLIT_CNT ♦ 
SPLIT~FOOOCOOE<SPLIT CNT 
SPL I T~PORT iai{ SPL I T_CHT ) 

ELSE IF(CC5A .GT. 0) THEN 

! I assume b can't be > i 
SPLIT CNT = SPLIT CNT + 
SPLIT~FO0OC0OECSPLIT CNT 
SPL I T~PO«T I ON ( SPL I T_CNT ) 

END IF ~ 

IF(CC6A .GT. .AND. CC68 
SPLIT CNT » SPLIT CNT + 
SPL I t'fOOOCOOE < SPL I T_CNT 
SPLIT P0RTI0N(SPLIT CNT) 
SPLIT~CNT = SPLIT_CNT ♦ 
SPLIT_F000C00E{SPLIT CNT 
SPLIT PORTIONCSPLIT CNT) 

ELSE IF(CC6A .GT. 0) THEN 

t I assume b can't be > i 



= CC1A 
= PSI/2.0 

= CC1B 
= PSI/2.0 

a is not > 

= CC1A 
= PS1 

GT. 0) THEN 

3 CC2A 
= PS2/2.0 

= CC2B 
= PS2/2.0 

a is not > 

= CC2A 
■ PS2 



= CC3A 
= PS3/2.0 

= CC3B 
= PS3/2.0 

a is not > 

= CC3A 
■ PS3 



has only one category 

= CC4A 
= PS4 



= CC5A 
= PS5/2.0 

= CC5B 
: PS5/2.0 

a is not > 

- CC5A 
■ PS5 

GT. 0) THEN 

CC6A 
LEGUMS/2.0 

CC&B 
LES4K/2.0 



a is not > 



SPLIT CNT = SPLIT CNT * 
SPL1T~FOOOCOOE(SPLIT CNT) = CC6A 
SPLIT~PORTIO«(SPLIT CNT) = LEGUME 
END IF ~ 



END IF ! food portion gt 0.0 
END 00 < nunber of food items 
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C aggregate the split foodcodes 

IF<SPLIT_CNT .EQ. 0) THEN 

WRITE(6,*) ' •• ERROR: FOUND SPL1T_CNT = ' 

WRITE(PRFILE,«) ' •• ERROR FOUND SPLITCNT = *•' 

URITECPRFILE,*) ' HHIO = ', HHID_20 

KFREO = 1 

GO TO 900 
END [F 



210 



1210 



AGG_F000C00E(1) = SPLIT_FOOOCOOE( 1 > 
AGG_P0«TI0N(1) = SPL1T_P0RTI0N(1) 
AGG CNT = 1 
00 T = 2, SPLIT CNT 
00 J = I.AGG CMT 

IF(AGG_F000C00E(J) .EO. SPLIT_F000C00E( I )) THEN 

AGG_PORTION(J) = AGG PORTIONCJ) + SPLIT_P0«TI0N( I ) 
GO TO 210 
END IF 
END DO ! over J 

! get to here if no match found; so add to agg list 
AGG CNT = AGG CNT + 1 

AGC~FOO0COOE{AGG_CNT) = SPLIT FOOOCWE(I) 
AGG~PORT!ON(AGG_CNT) = SPLIT~PORTION(I ) 
CONTINUE ! come to here if inner loop found a match 
END 00 ! over split_cnt 

- print the unaggregated split foodcodes 
IF(KFREO .GT. 0) THEN 

WRITECPRFILE,*) ' --- PRINT OF UNAGREGATEO SPLIT FOODCODES' 
URITE(PRFILE,*) ' SPLIT_CNT = ', SPLIT_CNT 
DO I = 1, SPLIT CMT 

WRITE(PRFILE,1210) SPLIT_FOOOCOOE{I ),SPLIT PORTIONCI) 
FORMATC foodcode = ',17,' PORTION = ' ,r6~3) 
END DO 



1220 



- print the aggregated split foodcodes 
WRITE(PRF1LE,*) ' ' 

WRITE{PRFILE,*) ' --- PRINT OF AGREGATED SPLIT FOOOCOOES' 
WRITECPRFILE,*) ' AGG CNT = ', AGG_CNT 
DO I = 1,AGG CNT 

URITE(PRfTlE,1220) AGG FOODCODE ( I ), AGG PORTION(I) 
FORMATC foodcode = ',17,' PORTION = ~,F6.3) 
END DO 
END IF ! kfreq 



!F(MUH_DAYS .GT. 0) THEM 
AVG FG1 = FG1 / NUM DAYS 
AVgIfG2 = FG2 / NUM"DAYS 
AVG_FG3 = FG3 / NUm'dAYS 
AVG_FG4 = FG4 / NUm'dAYS 
AVG FG5 = FG5 / NUM~DAYS 
AVG'lEGUHE = FG6 / NUM DAYS 

ELSE 

AVG_FG1 =0.0 
AVG FG2 s 0.0 
AVG~FG3 =0.0 
AVG~FG4 =0.0 
AV6~FG5 
AVG LEGUME 
WRITE(6,*) 



0.0 
= 0. 



ERROR: FOUND NUMOAYS = FOR HHIO 15 = 



WRITEC6,*) 
END IF 



,HHID_15 



IFCKFREO .GT. 0) THEN 
WRITE(PRFILE,2010) 
& FG1 

& ,FG2 
& ,FG3 
& ,FG4 
& ,FG5 
£ ,FG6 
& ,AVG FG1 

& ,AVG~FG2 
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& 




,AVG FG3 


& 


,AVG FG4 


& 


,AVG FG5 


& 


,AVG~LEGU«E 


& 


,NUM DAYS 


& 


,splTt CNT 


& 


,AGG CNT 


!010 FORMAT ( 


& 


/ ' FG1 = ',F6.3 


& 


,' FG2 = ',F6.3 


& 




' FG3 = ',F6.3 


& 




' FG4 = ',F6.3 


& 




' FG5 = •,F6.3 


& 




' FG6 = ',F6.3 


& 


/ 


' AVG FGI = ',F6.3 


& 




' AVG~FG2 = '.F6.3 


& 




' AVG FG3 = ',F6.3 


& 




' AVG~FG4 = ',F6.3 


& 




' AVG~FG5 = ',F6.3 


& 




' AVG LEGUHE = ',F6.3 


& 


/ 


' NUM DAYS = ',F6.3 


& 


/ 


' SPLIT CNT = ',13 


& 




' AGG CNT = ',13 


& 


') 




=ND IF • kfreq 


SKIP 


OVER RECORDS WITH 


INVALID DATA 



c- 
c 
c 
c- 

IF(SEX .NE. 1 .AND. SEX .NE. 2} THEN 
INVALID SEX CNT = INVALID SEX CNT + 1 
I F( INVALID SEX CNT .LE. 5) THEN 
WRITE(PRFILE,*) 
KFREQ I 9 
END IF 
GO TO 900 
END IF 
I SEX = SEX 



••••• ERROR: INVALID SEX CODE 



IF(AGE .GT. 98) THEN 

VERY OLD AGE CNT = VERY OLD AGE CNT + 1 
IFCVERY OLD AGE CNT .LE7 5)~THEN 

WRITE (PR FILE,*) ' "•*• WARNING: VERY OLD AGE CODE 
KFREQ = 9 
END IF 
END IF 



IF(AGE .GE. 


51) 


THEN 


lAGE = 8 






ELSE IF (AGE 


.GE. 


25) THEN 


lAGE = 7 






ELSE IF(AGE 


.GE. 


19) THEM 


lAGE = 6 






ELSE IF(AGE 


.GE. 


15) THEM 


lAGE = 5 






ELSE IF(AGE 


.GE. 


11) THEM 


lAGE = 4 






ELSE IF(AGE 


.GE. 


7) THEN 


lAGE = 3 






ELSE IF(AGE 


-GE. 


4) THEN 


lAGE = 2 






ELSE IF(AGE 


.GE. 


1) THEN 


lAGE = 1 






ELSE 






GO TO 900 






END IF 







2110 



IF(KFREQ .GT. 0) THEN 

WRITE(PRFILE,2110) ISEX.IAGE 
FORHATC ISEX = ',12,' lAGE = ',12) 

END IF 



C do the legume-meat before veggies if legumes gt 

give the meat excess to veggies 

IF(AVG LEGUME .GT. 0.0) THEN 
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2125 



if more meat servings needed for max 
add legumes to meat 
if now excess meat servings 
MAXPOINT) ! move that to veggies 
reset meat to max 



MAXPOINT = MAX POINT{ ISEX, IAGE,5) 
MINPOINT = MIn"P0INT(ISEX,IAGE,5) 
lf(AVG FG5 .LT. MAXPOINT) THEN 
AVG~FG5 = AVG FG5 + AVG_LEGUME 
IF(AVG_FG5 .GT. MAXPOINT) THEN 
AVG_FG2 = AVG FG2 + <AVG_FG5 
AVG~FG5 = MAXPOINT 
LEGUME CNT = LEGUME CNT + 1 
IFCLEGUME CNT .LE. T) THEN 

WRITECPRFILE,*) ' FOUND LEGUME DISTRIBUTION 

KFREQ = 9 
END IF 
END IF 
1F(AVG_FG2 .LT. MAXPOINT) THEN 
AVG_FG2 = AVG_FG2 + AVG LEGUME 
IF(AVG FG2 .GT. MAXPOINT) THEN 
AVG~FG5 = AVG FG5 
AVG FG2 = MAXPOINT 



if more veg servings needed for max 
add legumes to veggies 
if nou excess veggies servings 
(AVG_FG2 - MAXPOINT) 1 move that to meats 
< reset veggies to max 



LEGUME CNT = LEGUME CNT + 1 
IFCLEGUME CNT .LE. T) THEN 

WRITE(PRFaE,*) ' FOUND LEGUME DISTRIBUTION: 

KFREQ = 9 
END IF 
END IF 
1F(KFREQ .GT. 0) THEN 

WRITE(PRFILE,2125) AVG_FG2,AVG_FG5 
FORMAT (' legumes distributed: ' 
S; ,' new AVG_FG2 " ',F6.3 

i ,' new AVG_FG5 = ',F6.3) 

END IF 
END IF 
END IF 



C the grain cotnponent 

MAXPOINT = MAX_P0INT(ISEX,IAGE,1) 
MINPOINT = MIN_P0INT(ISEX,IAGE,1) 



2120 



IF (AVG FG1 .GE. MAXPOINT) THEN 

C0MP01 = 10.0 
ELSE IF(AVG_FG1 .LT. MINPOINT) THEN 

COMP01 =~0.0 
ELSE 

COMP01 = 10.0 * (AVG_FG1 - MINPOINT) / (MAXPOINT - MINPOINT) 
END IF 
IF(KFREQ .GT. 0) THEN 

WRITE(PRFILE,2120) MAXPOINT, MINPOINT, AVG FG1,C0MP01 

FORMATC FOR GRAIN: MAXPOINT = ',F6.27' MINPOINT = ',F6.2 
& ,' AVG_FG1 = ',F6.3,' COMP01 = ',F7.2) 
END IF 



2130 



'-- the veggie component 
MAXPOINT = MAX POINTdSEX, IAGE,2) 
MINPOINT 3 MIN~P0INT(ISEX,IAGE,2) 
IF(AVG FG2 .GE. MAXPOINT) THEN 

C0HP02 > 10.0 
ELSE IF(AVG FG2 .LT. MINPOINT) THEN 

C0MP02 »"0.0 
ELSE 

C0MP02 » 10.0 • (AVG FG2 - MINPOINT) / (MAXPOINT - MINPOINT) 
END IF 
IF(KFREO .GT. 0) THEN 

WRITE(PRFILE,2130) MAXPOINT, MINPOINT, AVG_FG2,COMP02 

FORMATC FOR VEGGIES: MAXPOINT = ',F6.2,' MINPOINT = ',F6.2 
& ,' AVG FG2 = ',F6.3,' COMP02 = ',F7.2) 
END IF 



-- the fruit component 
MAXPOINT 3 MAX POINT( ISEX, IAGE,3) 
MINPOINT = MIM~P0INT(ISEX,IAGE,3) 
IF(AVG FG3 .GE. MAXPOINT) THEN 
C0MP03 = 10.0 



ELSE IF(AVG FG3 
C0MP03 ="0.0 

ELSE 

C0MP03 = 10.0 

END IF 



LT. MINPOINT) THEN 



(AVG_FG3 - MINPOINT) / (MAXPOINT - MINPOINT) 
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IF(KFREQ .GT. 0) THEM 

WRITE<PRFILE,2135) HAXPOINT,MINPOINT,AVG FG3,COMP03 
2135 FORMATC FOR FRUIT: HAXPOINT = ',F6.27' MINPOIHT = ',F6.2 
& ,' AVG FG3 = ',F6.3,' C0MP03 = ',F7.2) 
END IF 

C the dairy contponent 

MAXPOINT = MAX_P0INT{ISEX,IAGE,4) 
MINPOINT = «iN_P0INTaSEX,IAGE,4) 
IF(AVG_FG4 .GE. MAXPOINT) THEN 

C0HP04 = 10.0 
ELSE IFCAVG FG4 .LT. MINPOINT) THEN 

C0MP04 ="0.0 
EISE 

C0MP04 = 10.0 * (AVG FG4 - MINPOIHT) / (MAXPOINT - MINPOINT) 
END IF 
IF(KFREQ .GT. 0) THEN 

WRITE(PRFILE,2140) MAXPOINT, MINPOINT, AVG F64,C0HP04 
2H0 FORMATC FOR DAIRY: MAXPOINT = ' JbS,' MINPOINT = ',F6.2 
& ,' AVG FG4 = ',F6.3,' COMP04 = ',F7.2) 
END IF 



C the meat component after legumes have been added 

MAXPOINT = MAX P0INT{ISEX,IAGE.5) 
MINPOINT = MIN_P0INT(ISEX,IAGE,5) 

1F(AVG_FG5 .GE. MAXPOINT) THEN 

COMPOS = 10.0 
ELSE IF(AVG FG5 .LT. MINPOINT) THEN 

C0HP05 ="0.0 
ELSE 

COMPOS = 10.0 * (AVG_FG5 - MINPOINT) / (MAXPOINT - MINPOINT) 
END IF 
IF{KFREQ .GT. 0) THEN 

URITE(PRFILE,21S0) MAXPOINT, MINPOINT, AVG FG5, COMPOS 
2150 FORMATC FOR MEATS: MAXPOINT » ',F6.27' MINPOINT = ',F6.2 
& ,' AVG FG5 = ',F6.3,' COMPOS = ',F7.2) 
END IF 



-- the fat components 
IF(T0TNUT2 .GT, 0.0) THEN 

ALL FAT RATIO = (9.0*TOTNUT4) / T0TNUT2 

SATURATED FAT RATIO = {9.0*TOTNUT5) / T0TNUT2 
ELSE 

WRITE(PRFILE,*) ' ••ERROR: T0TNUT2=0 FOR: PER«)H#',TYPE 20 CNT 

KFREQ =1 

ALL FAT RATIO = 0.0 

SATURATED FAT_RATIO =0.0 
END IF 



C the all fat components 

MAXPOINT = MAX P0INT(ISEX,IAGE,6) 
MINPOINT = M1n"P0INT(ISEX,IAGE.6) 
IFCALL FAT_RATIO .LT. HAXPOINT) THEN 

C0MP06 » 10.0 
ELSE IF(ALL FAT_RATI0 .GE. MINPOINT) THEN 

C0MP06 =~0.0~ 
ELSE 

C0MP06 » 10.0 * (MIMWIIIT - ALL FAT RATIO) 
& / (MINPOINT - NA)a>OtNT) 
END IF 
IFCKFREQ .GT. 0) THEN 

WRITE(PRFILE,2160) MAXPOINT, MINPOINT, ALL FAT RATIO,COHP06 
2160 FORMATC FOR ALL FAT: MAXPOINT = ',F6.27' MINPOINT = ',F6.2 
& ,' ALL FAT RATIO ■ '.F6.3,' C0MP06 = ',F6.2) 
END IF 



-- the saturated fat components 
MAXPOINT = MAX P0INT{ISEX,IAGE,7) 
MINPOINT = MIN~P0INT(ISEX,IAGE,7) 
IF(SATURATED FAT_RATIO .LT. MAXPOINT) THEN 

COMP07 = To.o~ 
ELSE IFCSATURATED FAT_RATIO .GE. MINPOINT) THEN 

C0MP07 s 0.0 
ELSE 



47 



Table of Contents 



COIP07 = 10.0 * (MINPOINT - SATURATED FAT_RATIO) 
& / (MINPOINT - MAXPOINT) 

END IF 
IFdCFREO .GT. 0) THEN 

WRITE(PRFILE,2170) MAXPOINT,MINPOINT,SATURATED_FAT_RATIO,C0HP07 
2170 FORMATC FOR SAT FAT: MAXPOINT = ',F6.2,' MINPOINT = ',F6.2 
& ,' SAT FAT RATIO = ',F6.3,' COMP07 = ',F6.2) 
END IF 



C the cholesterol coirponent 

MAXPOINT = MAX POINTdSEX, IAGE,8) 
MINPOINT = MIN~P01NT(iSEX,IAGE,8> 
IF(T0TNUT8 .LtT MAXPOINT) THEM 

COMPOS = 10.0 
ELSE IF(T0TMUT8 .GE. MINPOINT) THEN 

COMPOS =0.0 
ELSE 

C0HP08 = 10.0 * (MINPOINT - T0TNUT8) 
& / (MINPOINT - MAXPOINT) 

END IF 
IF(KFREQ .GT. 0) THEN 

URITE(PRFILE,2180) MAXPOINT, MINPOINT, T0TNUT8, COMPOS 
2180 FORMATC FOR CHOLEST: MAXPOINT = ',F6.0,' MINPOINT = ',F6.0 
& ,' T0TNUT8 = ',F6.0,' C0MP08 = ',F6.2) 
END IF 



C the SOOIUM cooponent 

MAXPOINT = MAX P0INT( ISEX, IAGE,9) 
MINPOINT = MIN~P01NT(ISEX,IAGE,9) 
IF(T0TNUT29 .LT. MAXPOINT) THEN 

C0MP09 = 10.0 
ELSE IF{T0TNUT29 .GE. MINPOINT) THEN 

C0MP09 = 0.0 
ELSE 

C0MP09 = 10.0 * (MINPOINT - T0TNUT29) 
& / (MINPOINT - MAXPOINT) 

END IF 
IF(KFREQ .GT. 0) THEN 

WRITE(PRFILE,2190) MAXPOINT, MINPOINT, TOTNUT29,C0MP09 
2190 FORMATC FOR SOOIUM: MAXPOINT = ',F6.0,' MINPOINT = ',F6.0 
& ,' T0TNUT29 = ',F6.0,' C0MP09 = ',F6.2) 
END IF 

C count food portions > 0.5 in for the variety index 

VARIETY_CHT = 
00 1 = 1,AGG CUT 

1F(AGG PORTIOMd) .GT. 0.50) VARIETY CNT = VARIETY_CNT + 1 
END 00 " 



--- the VARIETY coi«pooent 
MAXPOINT = MAX POINTdSEX, IAG£, 10) 
MINPOINT :< MIN POINTdSEX, lAGE, 10) 
IF(VARIETY CMT~.GT. MAXPOINT) THEN 

C0MP10 * 10,0 
ELSE IF(VARIETY CNT .LE. MINPOINT) THEN 

C0MP10 = O.O" 
ELSE 

COMP10 = 10.0 • (VARIETY CNT - MINPOINT) 
& / (MAXPOINT - MINPOINT) 

END IF 



1F(XFREQ .GT. 0) THEN 

WRITE(PRFILE,2200) MAXPOINT, MINPOINT 



2200 



& 


.SPLIT CNT 


& 


,AGG CNT 


£ 


.VARIETY CNT 


& 


,COMP10 




FORMATC FOR Variety: MAXPOINT 


& 


,' MINPOINT = ',F7.2 


& 


/,' SPLIT CNT =',I3 


& 


,' AGG CNT =',I3 


& 


,' VARIETY CNT ='.I3 



■,F7.2 
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& 


, ' C0MP10 


& 


) 


END IF 




FOOD INDEX1 = 


& 


CC3MP01 


& 


+ CC1MP02 


& 


+ C0MP03 


8 


+ C0MP04 


S 


+ COHP05 


& 


+ C0MP06 


& 


♦ C0MP07 


& 


♦ COMPOS 


& 


*• COMP09 


& 


*■ COMPIO 


IF(KFREQ .GT. 0) THEM 


URITE(PRFILE.2210) 


& 


COMP01 


& 


,CCIMP02 


& 


,CQMP03 


& 


,C0HP04 


& 


, COMPOS 


& 


,C0MP06 


& 


,C0MP07 


& 


.COMPOS 


& 


,C0MP09 


& 


,COMP10 


& 


RDA1 


& 


FOOD INDEX1 


2210 FORMAK 


& / 


' C0MP01 =',F6.3 


& 


' COMP02 =',F6.3 


& 


' COMP03 =',F6.3 


& 


' COMP04 =',F6.3 


& 


' COMPOS =',F6.3 


& / 


' C0MP06 =',F6.3 


& 


' C0MP07 =',F6.3 


& 


' COMPOS =',F6.3 


& 


' COMP09 =',F6.3 


& 


' C0MP10 =',F6.3 


& / 


' R0A1 FOOD RATK 


& / 


' F000~INDEX 


S ) 




EMO IF 




900 COMTINUI 




RETURN 




END 





='.F6.2 



'.F8.3 



SUBROUTINE BINARY SEARCH INT4(KEY, PICK, LOW, HIGH, KFREQ) 
IMPLICIT NCME 

C--- BINARY SEARCH ON AN ARRAY OF INTEGER** * 

INTEGERS PICK,INTERV,HI,LO 

INTEGER** KFREa 

INTEGER** LOU 

INTEGER** HIGH 

LOGICAL DBUG 

INTEGER** KEY 

INCLUDE 'F7 CODE. INC 



C 

C 

c 

c 



100 



INTERVAL GT 1: COMPUTE NEW HI AND LO VALUES UNTIL IMTERVAL <> 1 
THEN CHECK TO SEE WHICH OF THE TWO CHIOCES PICKES 
THIS ROUTINE ALWAYS EXPECTS TO FIND A PICK 
HI = HIGH 
LO = LOW 
DBUG > .FALSE. 
CONTINUE 

INTERV = HI - LO 
IF (INTERV .LE. 1) GOTO 200 
PICK = (LO ♦ HI) / 2 
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IF (KEY .LE. FCX»C00E7{PICK)) THEN 

HI = PICK 
ELSE 

LO = PICK 
END IF 
GOTO 100 

200 CONTINUE 

C SEARCH INTERVAL DOWN TO 1 OR 

C IF THE PICK IS NOT = TO THE KEY, THEN TRY THE NEXT SUBSCRIPT 

C IN EITHER DIRECTION 

IF(FOOOC00E7(PICK) .NE. KEY) THEN 

IF(F0C0C00E7<PICK*1) .EQ. KEY) PICK = PICK + 1 
IF{F000C00E7(PICK-1> .EO. KEY) PICK = PICK - 1 
END IF 



c there's a problem if the key is still not equal 

1F(F000C00E7(PICK) .NE. KEY) THEN 
WRITE(8,2010) KEY 
2010 FORHATC *•* ERROR IN BINARY_SEARCH: NO PICK FOUND FOR: ',19) 
KFREO = 9 
DBUG = .TRUE. 
END IF 
IF (DBUG) THEN 

WRITE(8,2000) KEY, HI, LO, PICK, 
& FOODC0OE7(PICK),FOOOCO0E7<LO),FOO0COOE7(HI) 

3 FORMATC RESULTS OF BINARY SEARCH_INT4 '/' KEY = ',110, 

1 ' HI = ',15,' LO = ~,I5, 

2 / ' PICK = ',15,' F000C00E7{PICK) = ',110, 

3 ' FO0OCO0E7(LO) = ',110,' F000C00E7(HI ) = ',110) 
END IF 



2000 



RETURN 
END 



SUBROUTINE ZERO INDEX 



C* ASSIGN ALL INDEX-RELATED VARIABLES TO ZERO! 
IMPLICIT NONE 



INCLUDE 'INDEX. INC 



FG1 = 







FG2 = 







FG3 = 







FG4 = 







FG5 = 







FG6 = 







AVG FG1 


= 


0.0 


AVG FG2 


3 


0.0 


AVG FG3 


= 


0.0 


AVG FG4 


= 


0.0 


AVG FG5 


S 


0.0 


COMP01 


S 


0.0 


C0MP02 


a 


0.0 


C0MP03 


s 


0.0 


C0HP04 


= 


0.0 


COMPOS 


= 


0.0 


COMP06 


s 


0.0 


C0MP07 


= 


0.0 


COMPOS 


= 


0.0 


C0MP09 


= 


0.0 


COMP10 


= 


0.0 


ALL FAT 


RATIO = 0.0 


SATURATED 


FAT RATIO 


F000_INDEX1 = 0.0 


RETURN 






END 







0.0 



SUBROUTINE WRITE PERSON 



C* WRITE OUT PERSON RECORDS 
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IMPLICIT NONE 



INCLUDE 
INCLUDE 



WORKCSF.INC 
INDEX. INC 



TOT C0MP01 
T0T~C0MP02 
TOT C0MP03 
TOT C0MP04 
TOT COMPOS 
TOT~COMP06 
T0T_C0MP07 
TOT~C0MP08 
TOT~COMP09 
TOT~C0MP10 



TOT COMP01 
TOT~COMP02 
TOT C0MP03 
TOT"cONP04 
TOT^COMPOS 
TOT~COMP06 
TOT C0MP07 
TOT~C0MP08 
TOT~C0MP09 
TOT~COMP10 



C0MP01 
C0MP02 
COMP03 
C0HP04 
COMPOS 
C0MP06 
C0MP07 
COMPOS 
C0MP09 
C0MP10 



WGT 
WGT 
WGT 
WGT 
WGT 
WGT 
WGT 
WGT 
WGT 
WGT 



3DAY 
"30AY 

3DAr 
"3DAY 
"SDAY 
'3DAY 
"3DAY 
'3DAY 
'30AY 
"3DAY 



TOT WGT = TOT WGT + WGT 3DAY 



WRITE(IO) 


& 


RT 15 


& 


YEAR 15 


& 


SAMPLE 15 


& 


HHID 15 


& 


LGRADE 15 


& 


FOOOSEC 


& 


SURPLUS 


& 


RT 20 


& 


YEAR 20 


i 


SAMPLE 20 


& 


HHID 20 


& 


R NUM 20 


& 


GEOG 


& 


URB 


& 


HHSZ 


& 


INCOME 


& 


PCTPOV 


& 


H RCVFS 


& 


DHKHH 


& 


CHILDREN 


& 


HEADSTAT 


& 


R RCVFS 


& 


AGE 


& 


SEX 


& 


PL STAT 


& 


RACE 20 


S 


origTn 


& 


NUMDAY5 


& 


R WIC 


& 


R EMP 


s 


R LGRADE 


& 


R CNTL 


& 


R FREEL 


& 


HLTHDIET 


& 


SPECDIET 


& 


DT CALOR 


& 


DS~CALO« 




DT~FAT 




ds'fat 




DT SALT 




ds~salt 




DT SUGAR 




DS SUGAR 




or 0U8 




DS DIAB 




dt"lfib 




ds'lfib 




ot hfib 




DS~HFIB 




OT OTHER 




,DS~OTHER 




,VEGET 




R WGT 




r"hgt 




,BHI 




LEISURE 
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& 


ACTIVE L 


& 


Dl HHTH 


& 


OrOATE 


& 


Dl YEAR 


& 


01 DAY 


& 


D1 NREC 


& 


Dl FEW 


& 


D1_AMTUS 


& 


01 RESUS 


& 


02~MNTH 


& 


02 DATE 


& 


D2 YEAR 


& 


02 DAY 


& 


02 NREC 


& 


02 FEU 


& 


02 AMTUS 


& 


02 RESUS 


& 


03 MNTH 


& 


03 DATE 


& 


03 YEAR 


& 


D3~DAY 


& 


D33nREC 


& 


03 FEU 


& 


03 AMTUS 


& 


D3 RESUS 


& 


UGT 3DAY 


& 


RT 50 


& 


YEAR 50 


& 


SAMPLE 50 


s 


HHIO 50 


& 


R NUH 50 


& 


RACE 50 


& 


F1A ~ 


& 


F1B 


s 


F1C 


& 


FID 


& 


FIE 


& 


F4A 


& 


F-iB 


& 


F4C1 


& 


F4C2 


& 


F4C3 


& 


F4D 


& 


F4E1 


& 


F4E2 


& 


F4F 


& 


F4G 


& 


F4H 


& 


F4I 


& 


F4J 


& 


F4K 


& 


F4L 


& 


F4M 


& 


F4N 


& 


F40 


& 


RT 40 


& 


YEAR 40 


& 


SAMPLE 40 


& 


HHID 40 


& 

& 


R NUM 40 
RACE 40 


s 


DAYCODE 40 


& 


BMILK 


& 


RDA1 


& 


R0A2 


& 


RDA3 


& 


R0A4 


& 


RDA5 


i 


RDA6 


& 


RDA7 


& 


RDA8 


& 


RDA9 


& 


R0A10 


& 


R0A11 


& 


R0A12 


& 


RDA13 
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& ,ftDAl4 

& ,RDA15 

& ,R0A16 

& ,R0A17 

& .TOTNUTI 

& ,T0TNUT2 

& ,T0TNUT3 

& ,T0TNUT4 

i , T0TNUT5 

& ,T0TMUT6 

& ,T0TNUT7 

& , T0TMUT8 

& , T0TNUT9 

& .TOTNUTIO 

& ,T0TMUT11 

& ,T0TMUT29 

& ,TYPE_30_CMT 

& ,FG1 

& ,FG2 

& ,FG3 

& ,FG4 

& ,FG5 

& ,FG6 

& ,AVG FGI 

& .AVG^FGZ 

& ,AV6 FG3 

& ,AVG~FG4 

& ,AVG FG5 

& ,AVG~LEGUME 

& .COHPOI 

& ,C0W>02 

& ,CCMP03 

& ,C0MP04 

& .COMPOS 

& ,CaMP06 

& ,C0HP07 

& .COMPOS 

5 ,COMP09 

6 .COHPIO 

& ,SPLIT_CMT 

& ,AGG CNT 

& ,ALL~FAT RATIO 

& .SATURATED FAT RATIO 

& ,FOQO INDEX1 
0UT_CNT = OUT_CMT + 1 

RETURN 
END 



SUBROUTINE TIHER(KEOF,PRFILE} 



C* TIME: ROUTINE USED TO DO TIMING 

IMPLICIT NONE 
INTEGER** KEOF 
INTEGER*^ PRFILE 

INTEGER*? HOUR1,HINUTE1,SECON01,SEC100TN1 
INTEGER*2 m]UR2,MIMJTE2,SEQMD2,SEC100TH2 
INTEGER*2 TOT HOURS, TOT MINUTES.TOT SECOTOS 



C- CHECK FOR KEOf • 

IFCKEOF .EQ. 2} THEN 

GO TO 200 
ELSE IFCKEOF .EQ. 1) THEN 

GO TO 100 
ELSE 

GO TO 300 
END IF 



100 CONTINUE 
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C KEOf = 1 * 

CALL GETTIM(HOUR1,MINUTE1,SECOND1,SEC100TH1) 
GO TO 900 



200 

C**« 

c 



CONTINUE 



KEOF = 2 



call gettim(hour2,minute2,second2,sec100th2) 

tot hours = h0ur2 - h0ur1 

ifctot hours .lt. 0) tot_hours = tot_hours + 24 

tot minutes = minute2 - minute1 

ifctot minutes .lt. 0) then 

tot minutes = tot minutes + 60 

tot~hours = tot hours - 1 
endif" 

tot seconds - sec0nd2 - sec0nd1 
if<fot seconds .lt. 0) then 

tot_seconds = tot_seconos + 60 

tot_minutes = tot_minutes - 1 

ENDIF 

WRITE(6,2120) TOT HOURS, TOT MINUTES, TOT_SECON0S 
2120 FORHATC ELAPSED TIME: ', 127' :', 12-2, ':', 12.2) 
GO TO 900 

300 CONTINUE 

C KEOF =3 * 

C GET EOF SYSTEM TIME 

CALL GETTIM(HOUR2,MINUTE2,SECOND2,SEC100TH2} 

TOT HOURS = H0UR2 - H0UR1 

IF<T0T HOURS .LT. 0) TOT HOURS = TOT HOURS + 24 

TOT_MINUTES = MIHUTE2 - M1NUTE1 

IFCTOT MINUTES .LT. 0) THEN 

TOT_MINUTES = TOT MINUTES + 60 

TOT_HOURS = TOT HOURS - 1 
ENDIF 

tot_seconds = sec0nd2 - secon01 
ifctot seconds .lt. 0) then 

tot_seconds = tot seconds + 60 

tot minutes = tot~minutes - 1 
endif" 

wr1tecprfile,9500) tot hours. tot minutes,tot_seconos 
9500 formatc/' elapsed time: hours:', 12,' minutes: ',12, 

& ' SECONDS: ',12) 
URITEC6,9510) TOT HOURS, TOT MINUTES, TOT_SECONDS 
9510 FORMATC ELAPSED TIME : HOURS: ',12,' MINUTES: ',12, 
& ' SECONDS: ',12) 

900 CONTINUE 
RETURN 
END 
SUBROUTINE GETTIM( HOUR, MINUTE, SECOND, SEC100TH) 

C GET THE SYSTEM TIME FOR THE LAHEY FORTRAN VERSION. NOT NEEDED IN 

C MS FORTRAN V5.0 

CHARACTER*12 C TIME 

I NTEGER«2 H0Ur7mI NUTE , SECOND , SEC1 OOTH 



CALL TIMECC TIME) 

READCC TIME, 1000) HOUR, MINUTE, SECOND, SEC100TH 
1000 F0RMATCI2,1X,I2,1X,I2,1X,I2) 
RETURN 
END 
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APPENDIX D 

EXAMPLES OF SAS PROGRAMS WHICH PRODUCE TABLES FROM 

THE ANALYSIS FILE 
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* Program: tabZ 89.sas; 

* Author: Karen Pence, 12/19/94; 

* Data: CSFJNDEX.SSO (1989 data); 

* Object: show distribution of Healthy Eating Index for the 89 file, 

* using the new variety file; 



libname in 'c:\hdi89laBp'; 

options nocenter U=132 ps=80; 

* options obs = 100; 

opt i ons f ornichar=' B3C40AC28FC3C5B4C0C109'X; 

proc format; 
value indexfmt 
0-30 = '<= 30' 

30<-40 = '31-40' 

40<-50 = '41-50' 

50<-60 = '51-60' 

60<-70 = '61-70' 

70<-80 = '71-80' 

80<-90 = '81-90' 

90<-HIGH = '> 90'; 
run; 

proc tabulate data > in.csfindex; 

class hd_index; 

format hd_index indexfmt.; 

freq wgt_3day; 

table hd_index, n pctn<hd_index>; 

title 'Table 2: Weighted T989 data, using new TAS variety file'; 
run; 

proc tabulate data = in.csfindex; 

class hd_index; 

format hd_{ndex indexfmt.; 

table hd_Tndex, n pctn<hd_index>; 

title 'Table 2: Unweighted 1989 data, using new TAS variety file'; 
run; 

proc means data s in.csfindex; 
var hd_index; 
weight wgt_3day; 
title 'Weighted Mean HEI value, 1989 data, using new TAS variety file'; 

run; 

proc means data = in.csfindex; 

var hd_index; 

title "unweighted Mean HEI value, 1989 data, using new TAS variety file'; 
run; 
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Table 2: Weighted 1989 data, using new TAS variety file 



— 


N 


PCTN 


Healthy eating index value 


128.00 


0.06 


<= 30 


31-40 


4783.00 


2.06 


41-50 


26567.00 


11.46 


51-60 


60391.00 


26.05 


61-70 


64673.00 


27.90 


71-80 


50077.00 


21.60 


81-90 


23095.00 


9.96 


> 90 


2119.00 


0.91 



Table 2: Unweighted 1989 data, using new TAS variety file 
23, 1994 2 





N 


PCTN 


Healthy eating index value 


4.00 


0.10 


<= 30 


31-40 


109.00 


2.73 


41-50 


499.00 


12.48 


51-60 


1038.00 


25.97 


61-70 


1152.00 


28.82 


71-80 


816.00 


20.42 


81-90 


338.00 


8.46 


> 90 


41.00 


1.03 



Weighted Mean HEI value, 1989 data, using new TAS variety file 

Analysis Variable : HD_INDEX Healthy eating index value 

N Mean Std Oev Minimum Maxinun 

3997 63.9057583 93.6552858 22.2209435 97.5870590 

Unweighted Mean HEI value, 1989 data, using new TAS variety file 

Analysis Variable : HD_INDEX Healthy eating index value 

H Mean Std Dev Minimun Maximum 

3997 63.1218388 12.4371765 22.2209435 97.5870590 



11:34 Friday, December 
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Program: tablex.sas; 

Author: Karen Pence, 5/10/94; 

Data: CSFIHDEX.SSO; 

Object: creates a table that catculates the mean healthy diet index 

score for selected subgroups of the population. Hodified 6/8/94. 



libnane in 'c:\hdi89'; 

•options obs « 100; 

options ps = 80 Is = 132 nocenter; 

options formchar='B3C4OAC2BFC3C5B4C0ClD9'X; 



proc 


format; 


val 


ue sexfmt 


1 = 


'Male' 


2 = 


'Female'; 


run; 




proc 


format; 


val 


ue agefmt 


2- 


4 = '2 - 4' 


5- 


14 = '5 - 14' 


15- 


39 = '15 - 39' 


40-64 = '40 - 64' 


65- 


HIGH = '65 +'; 


rt*\; 




proc 


format; 


val 


ue racefmt 


1 = 


'White' 


2 = 


'Black' 


3 = 


'Asian / Pacific Islander' 


4 = 


'Aleut, American Indian, Eskimo 


5 = 


'Other'; 


run; 




proc 


fornwt; 


val 


ue origfmt 


1 = 


'Hispanic 


2 = 


'Non-Hispanic'; 


run; 




proc 


format; 


val 


ue headfmt 


1 = 


'Hale & Female Head' 


2 =■ 


'Female Head' 


3 = 


'Hale Head'; 


run; 




proc 


format; 


val 


ue educfmt 


- 


9 = '< 2 yrs HS' 


10 - 


11 = '2 - 3 yrs HS' 




12 = '4 yrs HS' 


13 - 


15 = 'Some college' 




16 = '4 yrs college' 




17 = '> 4 yrs college' 




99 = 'Indeterminable'; 


run; 




proc 


format; 


value pctfmt 





- 50 = ' 0-50 X' 


51 


- 100 = ' 51-100 X' 


101 


- 130 = '101-130 X' 


131 


- 200 « '131-200 X' 


201 


- 300 = '201-300 X' 


301 


- HIGH = '301X +'; 


run; 




proc 


format; 


value progfmt 


1 = 


'Yes' 


2 = 


'NO' 


9 = 


'No ansuer'; 


run; 
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proc format; 
value lunchfmt 

1 = 'Free lunch' 

2 = 'Reduced price' 

3 = 'Full price' 

= 'Not applicable'; 
run; 

proc format; 
value secfmt 

1 = 'Enough/Desired' 

2 = 'Enough/non-desired' 

3 = 'Socnetimes not enough' 

4 = 'Often not enough'; 
run; 

proc tabulate data = in. csf index format = 8.1; 
class sex age race_20 origin headstat lgrade15 pctpov h_rcvfs r_Hic r_freel 

surplus fooddesc; 
var hd_index; 
table age race_20 origin headstat IgradelS pctpov h_rcvfs r_wic r_freel 

surplus fooddesc all='Total', hd_index='Dietary Index Score'*(sex 

aU = 'Total')*(n mean); 
weight Hgt_3day; 

format sex sexfmt. age agefmt. race_20 racefmt. origin origfmt. 
headstat headfmt. IgradelS educfmt. pctpov pctfmt. 
fooddesc secfmt. h_rcvfs r_wic surplus progfmt. r_freel lunchfmt.; 
where age gt 1; 
label race 20 = 'RACE' 

IgradelS = 'EDUCATION OF HOUSEHOLD HEAD' 

pctpov = 'POVERTY LINE PERCENTAGE' 

origin • 'ETHNICITY' 

headstat = 'HEAD OF HOUSEHOLD' 

fooddesc = 'FOOD SECURITY' 

hrcvfs = 'FOOD STAMP PARTICIPANT' 

r_wic = 'UIC PARTICIPANT' 

r~freel = 'SCHOOL LUNCH PARTICIPANT' 

surplus = 'USOA SURPLUS PARTICIPANT'; 
title 'Table X - Mean Dietary Index Scores for Selected Population Subgroups' 



titles 
run; 



'Weighted 1989 data' 
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Table X - Mean Dietary Index Scores for Selected Population Subgroups 





Dietary Index Score 


SEX 


Total 


Mai 


e 


Fonale 


N 


MEAN 


N 


MEAN 


K 


MEAN 


AGE 


122.0 


70.3 


117.0 


73.3 


239.0 


71.8 


2 - 4 


5 - 14 


368.0 


66.0 


330.0 


66.2 


698.0 


66.1 


15 - 39 


648.0 


58.7 


795.0 


62.3 


1445.0 


60.5 


40 - 64 


424.0 


60.3 


553.0 


66.5 


977.0 


63.5 


65 + 


240.0 


68.2 


400.0 


69.9 


640.0 


69.2 


RACE 


1484.0 


62.3 


1759.0 


66.3 


3243.0 


64.3 


White 


Black 


222.0 


58.0 


319.0 


60.7 


541.0 


59.5 


Asian / Pacific Islander 


36.0 


70.3 


40.0 


71.9 


76.0 


70.9 


Aleut, American Indian, Eskimo 


17.0 


49.1 


21.0 


58.2 


38.0 


54.2 


Other 


43.0 


63.5 


56.0 


63.6 


99.0 


63.5 


ETHNICITY 


166.0 


61.0 


240.0 


64.2 


406.0 


62,7 


Hispanic 


Non-Hispanic 


1636.0 


62.1 


1955.0 


65.8 


3591.0 


63.9 


HEAD OF HOUSEHOLD 


1367.0 


62.5 


1382.0 


65.8 


2749.0 


64.1 


Nale & Female Head 


Female Head 


210.0 


61.5 


807.0 


65.2 


1017.0 


64.5 


Nale Head 


225.0 


58.6 


6.0 


66.5 


231.0 


58.8 


EDUCATION OF HOUSEHOLD HEAD 


226.0 


58.4 


350.0 


62.5 


576.0 


60.9 


< 2 yrs HS 


2 - 3 yrs HS 


147.0 


56.7 


251.0 


62.0 


398.0 


59.7 


4 yrs HS 


651.0 


60.4 


754.0 


64.2 


1405.0 


62.3 


Some college 


380.0 


62.0 


431.0 


65.9 


811.0 


63.9 


4 yrs college 


157.0 


63.7 


168.0 


68.0 


325.0 


65.8 


> 4 yrs college 


211.0 


66.6 


206.0 


69.8 


417.0 


68.2 


Indeterminable 


30.0 


65.6 


35.0 


68.3 


65.0 


67.1 


POVERTY LIME PERCENTAGE 


134.0 


60.6 


186.0 


58.6 


320.0 


59.5 


0-50 X 


51-100 X 


364.0 


59.1 


547.0 


62.5 


911.0 


61.2 


101-130 X 


190.0 


60.7 


285.0 


63.1 


475.0 


62.0 


131-200 X 


277.0 


59.6 


308.0 


64.2 


585.0 


62.0 


201-300 X 


300.0 


61.0 


319.0 


65.7 


619.0 


63.3 



61 



Table of Contents 



Table X - Mean Dietary Index Scores for Selected Population Subgroups 
Weighted 1989 data 





Dietary Index Score 


SEX 


Total 


Male 


Female 


N 


MEAN 


N 


MEAN 


N 


MEAN 


POVERTY LINE PERCENTAGE 


537.0 


63.5 


550.0 


67.4 


1087.0 


65.4 


30U + 


FOOD STAMP PARTICIPANT 


206.0 


61.1 


327.0 


60.5 


533.0 


60.8 


Yes 


No 


1596.0 


62.0 


1868.0 


66.1 


3464.0 


64.1 


WIC PARTICIPANT 


27.0 


70.7 


30.0 


64.8 


57.0 


67.3 


Yes 


No 


1748.0 


61.9 


2133.0 


65.6 


3881.0 


63.8 


6 


. 


• 


1.0 


74.9 


1.0 


74.9 


No answer 


27.0 


61.8 


31.0 


67.1 


58.0 


65.0 


SCHCXJL LUNCH PARTICIPANT 


1481.0 


61.7 


1879.0 


65.7 


3362.0 


63.8 


Not applicable 


free lunch 


114.0 


66.0 


125.0 


63.8 


239.0 


64.8 


Reduced price 


46.0 


64.4 


28.0 


61.8 


74.0 


63.4 


Full price 


158.0 


62.4 


159.0 


65.3 


317.0 


63.8 


8 


1.0 


75.3 


■ 


- 


1.0 


75.3 


9 


■ 


■ 


4.0 


69.4 


4.0 


69.4 


USDA SURPLUS PARTICIPANT 


126.0 


58.4 


208.0 


61.9 


334.0 


60.6 


Yes 


No 


1670.0 


62.0 


1979.0 


65.7 


3649.0 


63.9 


No answer 


6.0 


69.4 


8.0 


75.4 


14.0 


73.4 


FOOD SECURITY 


1166.0 


62.7 


1403.0 


66.9 


2569.0 


64.8 


Enough/Desired 


Enough/non-desi red 


547.0 


60.3 


706.0 


62.2 


1253.0 


61.3 


Sometimes not enough 


72.0 


55.8 


68.0 


62.1 


140.0 


59.1 


Often not enough 


15.0 


61.0 


15.0 


53.3 


30.0 


57.8 


9 


2.0 


42.1 


3.0 


45.2 


5.0 


43.9 


Total 


1802.0 


62.0 


2195.0 


65.6 


3997.0 


63.8 
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* Program: energaic.sss; 

* Author: Karen Pence, 9/29/94; 

* Data: 1989 CSFIMDEX; 

* Object: tabulate body mass index categories by energy intake categories; 

* .,.. *.... 

(ibname in 'c:\hdt89'; 

'options obs = 100; 

options ps = 80 Is = 150 nocenter; 

opt i ons f ormchar- ' B3C4DAC2B FC3C5B4C0C1 D9' X ; 

proc format; 

value bmifmt 

15 - 20 :> '15 - 20' 

20 <- 25 » '20 <- 25' 

25 <- 30 = '25 <- 30' 

30 <- HIGH = '> 30'; 
run; 

proc fomat; 

value alcfmt, 

= 'Hone' 

<- 2.0 => '0.0 <- 2.0' 

2.0 <- 4.0 » '2.0 <- 4.0' 

4.0 <- 6.0 = '4.0 <- 6.0' 

6.0 <- 8.0 » '6.0 <- 8.0' 
8.0 <- HIGH = ' > 8.0'; 
run; 

data energy; 
set in. csf index (keep = bmi Mgt_3day sex age totnutll totnutZ); 

if bmi > 999 then bmi = .; 

alc_cal = ((totnutll • 7)/totnut2)*100; 

if (sex » 1) and (18 <= age <» 74) then output; 

run; 

proc tabulate data ^ energy format s 8.2; 

clsss bffti bIc cbL* 

table alc_carall', bBii*{n*f=8.0 pctn<bHii all>) all='Total'*(n*fsa.0 pctn>/rt8 * 22; 

label bmt = 'Body Mass Index' 

8lc_cal = 'X of Calories from Alcohol'; 

keylabel pctn » 'Pet'; 

format bmi bnifmt. alc_cat atcfmt.; 

title 'Percentage of Calories from Alcohol versus Body Mass Index, Weighted 1989 Data'; 

freq Mgt_3day; 
run; 

proc tabulate data » energy format > 8.2; 

class bmi ale cal; 

table ale carall, bmi*(n*f«8.0 pctn<fani all>) att='Tot8l'*(n*f«8.0 pctn)/rt8 « 22; 

label bmi~> 'Body Mass Index' 

alc_cal ' 'X of Calories from Alcohol'; 

Iceylabel pctn " 'Pet'; 

format bmi bmifmt. alc_cal alcfmt.; 

title 'Percentage of Calories from Alcohol versus Body Mass Index, Unweighted 1989 Data'; 
run; 

proc corr data = energy; 

var bmi alc_cal; 

weight wgt 3day; 

title 'Weighted correlation between ALC_CAL & BM!'; 
run; 

proc corr data = energy; 

var bmi alc_cal; 

title 'Unweighted correlation between ALC_CAL 4 BMI'; 
run; 
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Percentage of Calories from Alcohol versus Body Mass Index, Weighted 1989 Data 





Body Mass Index 


Total 


15 


20 


20 < 


25 


25 < 


30 


> 30 


N 


Pet 


H 


Pet 


N 


Pet 


H 


Pet 


N 


Pet 


X of Calories from 
Alcohol 


2315 


4.46 


19707 


37.95 


21741 


41.86 


8172 


15.74 


51935 


65.18 


None 


0.0 <- 2.0 


289 


4.87 


2702 


45.57 


1712 


28.88 


1226 


20.68 


5929 


7.44 


2.0 <- 4.0 


132 


1.93 


4120 


60.11 


2033 


29.66 


569 


8.30 


6854 


8.60 


4.0 <- 6.0 


10 


0.22 


1496 


32.19 


2098 


45.15 


1043 


22.44 


4647 


5.83 


6.0 <- 8.0 


300 


11.65 


928 


36.04 


1281 


49.75 


66 


2.56 


2575 


3.23 


> 8.0 


112 


1.45 


3218 


41.55 


3650 


47.13 


764 


9.87 


7744 


9.72 


ALL 


3158 


3.96 


32171 


40.37 


32515 


40.80 


11840 


14.86 


796«4 


100.00 



Percentage of Calories from Alcohol versus Body Mass [ndex, UnHcighted 1989 Data 





Body Mass Index 


Total 


15 


20 


20 < 


25 


25 < 


30 


> 30 


N 


Pet 


N 


Pet 


N 


Pet 


N 


Pet 


N 


Pet 


X of Calories from 
Alcohol 


39 


4.83 


325 


40.27 


320 


39.65 


123 


15.24 


807 


70.05 


None 


0.0 <- 2.0 


4 


4.76 


37 


44.05 


34 


40.48 


9 


10.71 


84 


7.29 


2.0 <- 4.0 


3 


3.53 


44 


51.76 


28 


32.94 


10 


11.76 


85 


7.38 


4.0 <- 6.0 


1 


2.38 


20 


47.62 


16 


38.10 


5 


11.90 


42 


3.65 


6.0 <■ 8.0 


2 


6.06 


15 


45.45 


14 


42.42 


2 


6.06 


33 


2.86 


> 8.0 


3 


2.97 


48 


47.52 


45 


44.55 


5 


4.95 


101 


8.77 


ALL 


52 


4.51 


489 


42.45 


457 


39.67 


154 


13.37 


1152 


100.00 
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Weighted correlation between ALC CAL & BMI 
Friday, September 30, 1994 3 



CORRELATION ANALYSIS 

2 'VAR' Variables: BMI 



ALC CAL 



10:56 









Siinple Statistics 








Variable 


N 


Mean 


Std Dev 


Sum 


MinifiMK 


Max i nun 


BHI 
ALC CAL 


1152 
1167 


26.028035 
2.280319 


35.938087 

40.405026 


2074018 
183586 


15.060000 



54.810001 
48.604586 



Pearson Correlation Coefficients / Prob > !R! under Ho: Rho=0 / Number of Observations / WEIGHT Var = UGT 3DAY 



BNI 



BMI 


ALC_CAL 


1.00000 
0.0 
1152 


-0.02692 

0.3613 

1152 


0.02692 

0.3613 

1152 


1.00000 
0.0 
1167 



ALC CAL 



Unweighted correlation between ALC_CAL & BMI 
CORRELATION ANALYSIS 

2 'VAR' Variables: BMI ALC CAL 









Sinple Statistics 








Variable 


N 


Mean 


Std Dev 


Sun 


Mininun 


Maximum 


BMI 
ALC CAL 


1152 
1167 


25.732613 
2.012299 


4.27ra02 
4.978938 


2^44 
2348.353295 


15.060000 



54.810001 
48.604586 



Pearson Correlation Coefficients / Prob > |Rl under Ho: Rho«0 / Nunber of Observations 

BMI ALC_CAL 

BMt 



ALC CAL 



1.00000 
0.0 
1152 

-0.05624 

0.0564 

1152 



-0.05624 

0.0S64 

1152 

I.OMHX] 
0.0 
1167 
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